#!/usr/local/bin/io doFile("bf.io") >+++++++++[-]+++++++[-]++++++++ [-]+++++++++++[-]++++++++[-]++++++++[-]以下 bf.io vm := List clone for(a, 0, 100, vm push(0)) index := 0 through := method(s, m, if (m, a := m argAt(0) if (a, s doMessage(…

時代は DSL ですよね。 K.INABAさんとこを参考にしました (http://www.kmonos.net/alang/etc/brainfuck.php) vm := List clone for(a, 0, 100, vm push(0)) index := 0 through := method(s, m, if (m, a := m argAt(0) if (a, s doMessage(a)) ) ) setSlot(…

setSlot("'", write("hello ")) setSlot("-", write("world")) setSlot("/", write("!\n")) setSlot(":-", method(v, if (v == 0, write("hello "), write("world!\n")) )) O := 1 \ ( ' - ' ) / :-0 :-O

Object then = method(v, v) Object elseif = method( self then = method( self then = method(v, v) self ) self ) Object else = method(self) modeStr := "640x480" //modeStr := "800x640" //modeStr := "1024x768" mode := if (modeStr == "640x480") …

Nop は Nil じゃない。 if (Nop, write("hoge\n")) if (Nop isNil, write("hige\n")) if (Nop) then(write("hage\n")) これは、 hoge と hige を出力する。うん今度このへんの話まとめて ML で聞いてみよう…

あと ioNop が使われているのは Future#isWaitingFuture にて。とりあえずhttp://d.hatena.ne.jp/shinichiro_h/20040928#1096336174がうまく動かなくなってた。 Future#? すると Future が即評価されてる。で、ちょっと調べるとむしろ ? がいらない模様。 pi…

ioNop 面白い…けどいらない。 write(Nop, "\n") write(Nop protos, "\n") Nop hello := method(write("hello\n")) Nop hello なんてしても何も起きない。 Nil よりはるかにやる気のないオブジェクト。ニートっぽい。というか Nil は将来に対する期待に満ちあ…