#出ちまったものは仕方ない :-) いやいや、形にするってのは大変なことです。どういう反響があるにせよ、もうひとつの山は確実に越えたわけですから、おつかれさま&おめでとうなのです。
#そうですねぇ
#出ちまったものは仕方ない
##iPhoneからだとmixiが激しく使いにくいのでTwitterはじめました
#超絶使いにくい公式iPhoneアプリなんかリリースして、そこまでtwitterを支援したいのか?＞mixi Inc.
#LOLジュンク堂で山積みでした。正確には斜め積み？
#iPhoneからだとまだ慣れない
#早いな >ジュンク堂
#iPhoneからよりもAndroidからの方が使いやすいはず。かなり速くなったので、あとはThreadまわりを直してひとまず完成かな。
##密林に出た
#gosh> (load "./trek.scm")
*** ERROR: Compile Error: syntax-error: malformed let: (let ((tmpx (+ x 0.005)) (intx)) (set! intx (floor->exact tmpx)) (format #f "~a.~a" intx (- (floor->exact (* tmpx 100)) (* intx 100))))
"./trek.scm":39:(define (fixfloat x) (let ((tmpx (+ ...
Stack Trace:
_______________________________________
#動かん
##(intx)のようにデフォルト値を省略する記法がMIT Schemeでは許されてるのかな。
#unboundになるんでしょうか
#やってみないとわからん。でもMIT Schemeは()が偽だった時代からあったはずだから、()になるかもしれん。(Common Lispとかはデフォルト値省略の場合はnilになる)
#デフォルト値ってのは正しくないな。初期値か。
#とりあえず、Gaucheで動かすためのパッチ作ってみた。
##すごい懐かしいけど、遊び方覚えていない。
#gosh> (load "./trek.scm")
#t
gosh> (trek)
THE USS ENTERPRISE --- NCC-1701
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
YOUR ORDERS ARE AS FOLLOWS:
--------------------------
DESTROY THE 66 KLINGON WARSHIPS WHICH HAVE INVADED
THE GALAXY BEFORE THEY CAN ATTACK FEDERATION HEADQUARTERS
ON STARDATE 2867.0. THIS GIVES YOU 67 DAYS.
THERE IS 1 STARBASE IN THE GALAXY FOR RESUPPLYING YOUR SHIP.
ARE YOU READY TO ACCEPT COMMAND? ('N' FOR End)y
YOUR MISSION BEGINS WITH YOUR STARSHIP LOCATED
IN THE GALACTIC QUADRANT, 'SPICA II'.
SECTOR 4,2
COMBAT AREA CONDITION RED
SHIELDS DANGEROUSLY LOW
+0-1-2-3-4-5-6-7-+
0|. . . * . . . . | STARDATE 2800.0
1|. * . . . . . . | CONDITION *RED*
2|. . . . . . . K | QUADRANT 7 5
3|. . . * . . . . | SECTOR 4 2
4|. . E . * . . . | PHOTON TORPEDOES 10
5|. . * . . . . . | TOTAL ENERGY 3000.0
6|. * . . . . . . | SHIELDS 0.0
7|. . . . . . * . | KLINGONS REMAINING 66
mloop start
COMMANDaye
ENTER ONE OF THE FOLLOWING:
--------------------------
W (WARP)
S (FOR SHORT RANGE SENSOR SCAN)
L (FOR LONG RANGE SENSOR SCAN)
P (TO FIRE PHASERS)
T (TO FIRE PHOTON TORPEDOES)
Z (TO RAISE OR LOWER SHIELDS)
R (FOR DAMAGE CONTROL REPORTS)
C (TO CALL ON LIBRARY-COMPUTER)
XXX (TO RESIGN YOUR COMMAND)
(zzz break for debug)
COMMANDp
PHASERS LOCKED ON TARGET; ENERGY AVAILABLE = 3000 UNITS
NUMBER OF UNITS TO FIRE ?300
138 UNIT HIT ON KLINGON AT SECTOR 2,7.
(SENSORS SHOW 42.0 UNITS REMAINING)
22 UNIT HIT ON ENTERPRISE FROM SECTOR 2,7 .
THE ENTERPRISE HAS BEEN DESTROYED. THE FEDERATION WILL BE CONQUERED.
IT IS STARDATE 2800.0.
THERE WERE 66 KLINGON BATTLE CRUISERS LEFT AT
THE END OF YOUR MISSION.
*** END ***
THE FEDERATION IS IN NEED OF A NEW STARSHIP COMMANDER
FOR A SIMILAR MISSION -- IF THERE IS A VOLUNTEER,
LET HIM STEP F#いきなりやられた
#@someone, って書き方よく見るですがこれは誰々さん宛の返信です、の意？
#は、置いといて。買うものリストにLOLを追加。原著持ってるけど縁起物だし :-)
Gauche > Archives > 2009/07/10