Io Language - 暇つぶし2ch

Io Language ..

32:7
08/02/06 03:16:47
無理矢理解決してみた。
v := 0

inc := method(
　 res := nil
　 recv := call target
　 cntxt := call sender
　 cntxt foreachSlot(name, value,
　　 if (recv == cntxt getSlot(name),
　　　 res = cntxt setSlot(name, cntxt getSlot(name) + 1)
　　 )
　 )
　 msg := call message
　 right := msg argAt(0)
　 msg setArguments(list())
　 msg setNext(right)
　 res ++ := Lobby getSlot("inc")
　 res
)

v ++ := getSlot("inc")

v println
(v ++ ++ ++ println)
v println

次ページ

続きを表示

1を表示