スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

うんとこしょ

> let pull1 = turnip ();;
うんとこしょ,
どっこいしょ!
それでもかぶはぬけません。
 
val pull1 : (unit -> unit -> unit -> unit -> unit -> unit)
 
> let pull3 = pull1 () ();;
うんとこしょ,
どっこいしょ!
それでもかぶはぬけません。
うんとこしょ,
どっこいしょ!
それでもかぶはぬけません。
 
val pull3 : (unit -> unit -> unit -> unit)
 
> let pull6 = pull3 () () ();;
うんとこしょ,
どっこいしょ!
それでもかぶはぬけません。
うんとこしょ,
どっこいしょ!
それでもかぶはぬけません。
うんとこしょ,
どっこいしょ!
やっとかぶがぬけました。\(^o^)/
 
val pull6 : unit = ()

 

おバカなコードです。

let turnip =
    let call = "うんとこしょ,\nどっこいしょ!\n"
    let cannotPullOut = "それでもかぶはぬけません。"
    let canPullOut = "やっとかぶがぬけました。\(^o^)/"
    let printYet () = printfn "%s" (call + cannotPullOut)
    let printSuccess () = printfn "%s" (call + canPullOut)
    fun () ->
        printYet () 
        fun () ->
            printYet ()
            fun () ->
                printYet ()
                fun () ->
                    printYet ()
                    fun () ->
                        printYet ()
                        fun () ->
                                printSuccess ()

スポンサーサイト

テーマ : プログラミング
ジャンル : コンピュータ

コメントの投稿

非公開コメント

プロフィール

T GYOUTEN

Author:T GYOUTEN
F#と英単語とフリーソフトと読書に興味があります。
ホームページでフリーソフトも公開しています。どぞ御贔屓に。

最新記事
最新コメント
最新トラックバック
月別アーカイブ
カテゴリ
フリーエリア
フリーエリア
blogram投票ボタン
検索フォーム
RSSリンクの表示
リンク
ブロとも申請フォーム

この人とブロともになる

QRコード
QRコード
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。