http://ideone.com/XTBbc CommonLISPでFizzBuzz。動作環境はMacOSX(10.6.8)、brew install clispで用意。 なるだけ古いスタイルで、doループとcondを使って書きました。 (setq f 1) (setq b 1) (do ((c 1 (+ c 1)) (f 1 (+ f 1)) (b 1 (+ b 1))) ((> c 100))…

なんのことかと言いますと、スマホのおかげで無駄遣いしなくて済むという。 KORG nanoKEYというUSB接続のミニキーボードがあったのですよ。3,400円本体のみ。で、スマホ持ってブラウザで検索すると、ドライバソフトはダウンロードで入手可、付属ソフトはライ…

http://s3.amazonaws.com/twitpic/photos/full/420977324.jpg?AWSAccessKeyId=AKIAJF3XCCKACR3QDMOA&Expires=1318335767&Signature=S1UU30fm7H9vTYa6p44T9YscXL4%3D 長崎空港の1Fにある中華料理「牡丹」。ここの皿うどんはうまい。パリパリの細麺と焼いた太…

http://ideone.com/QW36m FORTRAN77縛りでFizzBuzz。gfortran使用。(brew install gfortran) 1 FORMAT ( I1 ) 2 FORMAT ( I2 ) 3 FORMAT ( I3 ) 4 FORMAT ( 8HFizzBuzz ) 5 FORMAT ( 4HFizz ) 6 FORMAT ( 4HBuzz ) DO I = 1,100 IF ( MOD(I,3) .EQ. 0 ) THEN…