ちょっとProcessingというのに興味があって試してみた。 インタラクティブに画面に色々書けるようだ。文法はC言語っぽく、インタープリタで書き換えながら実行して確認できる。昔BASICでLINE文など使ったことのある人には馴染みやすいでしょう。Javaで実行さ…

Sub FizzBuzz() ' ' Office:Mac 2011で確認 ' [ツール]→[マクロ]→[マクロ…]で適当な名前を入れてコード画面を開き、コピー＆ペースト ' For i = 1 To 100 s = "" If i Mod 3 = 0 Then s = "Fizz" End If If i Mod 5 = 0 Then s = s + "Buzz" End If If s = "…

Dart言語で手探りながら99 bottles of beerを書いた。Dart programming language | Dart99 Bottles of Beer | Start class Bottle { var b1 = 'bottle' ; var b2 = 'bottles' ; number(n) { return (n==1)? b1 : b2 ; } } class BoB { number(n,lq) { var bo…

フィボナッチ数列をFizzBuzzするfibBuzzなんかも出てきて毎回作るのもなんなので、パイプでつないで処理するフィルタにしてみた。もちろんawk。fzbz.awk - 3,5の倍数の時に文字列に置き換え #! /usr/local/bin/gawk -f # # FizzBuzz filter # ($0%3)==0 && (…

forth http://ideone.com/nA0ek awk http://ideone.com/FtNI0 awkのone liner http://ideone.com/pEYDSideone.comおもしろい。

http://ideone.com/cKg5J CASL IIで FizzBuzzやってみた。 アセンブラでやるときは文字出力をどうするか悩むが、COMET IIの環境ではOUT命令があるのでこれを使った。 10進を表示するのは上の桁と下の桁に分けてASCII文字列を作成。CASLではレジスタは16ビッ…

FizzBuzzにはまっている。「こんなの簡単」「誰でも知ってる」ならやってみて。ただし、いろんな言語で。 FizzBuzz問題が丁度よいのは「反復」「条件判断」「出力」が含まれてるから。言語によりこれらは違ってくる。 反復は1〜100までのループ、またはリス…

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))…

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…

http://ideone.com/NWXzs MacOSX1.6.8 64bitカーネル、homebrewによるライブラリ追加支援にて、OpenCOBOL1.1をインストールした。 GnuCOBOL (formerly OpenCOBOL) download | SourceForge.net open-cobol-1.1を用意。ディレクトリに移動。 ./configure を実…