トップ «前の日記(2011-05-18(Wed)) 最新 次の日記(2011-06-02(Thu))» 編集

屑俺日記

僕の備忘録(PC、UN*X、ネットワーク関連が中心)なんです。
自分の書いたところは適当(な時とか)に書き換えますので御了承を。


2011-05-19(Thu) 晴れてるらしい

無限ループしないように

簡単そうなのを慎重に。

gosh> (define (foo num)
        (if (< 10 num)
            num
            (foo #?=(+ num 1))))
foo
 
gosh> (foo 7)
#?="(stdin)":44:(+ num 1)
#?-    8
#?="(stdin)":44:(+ num 1)
#?-    9
#?="(stdin)":44:(+ num 1)
#?-    10
#?="(stdin)":44:(+ num 1)
#?-    11
11

リンクはご自由にどうぞ。でもURLや内容が変った場合はあしからず。

index.htmlは ここから。