スポンサーサイト

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

横向きピラミッド

Gushwellさんの記事BLUEPIXYさんの記事をみて違った方法で自分でもやってみました。(効率は最悪だと思われます。)

let yPyramid n =
 
    let prntnN n () =
        printfn "%s" (new string ('*',n))
 
    let rec execFuncs (fLst : list<unit->unit>) (cont:unit -> unit) =
        match fLst with
        | [] ->
            () |> cont
        | hd :: tl ->
            execFuncs tl (hd >> cont >> hd ) 
          
    execFuncs [for i in [(n-1) .. -1 .. 1] -> (prntnN i)] (prntnN n) 

スポンサーサイト

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

コメントの投稿

非公開コメント

プロフィール

T GYOUTEN

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

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

この人とブロともになる

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