{"id":933,"date":"2009-12-12T12:19:32","date_gmt":"2009-12-12T11:19:32","guid":{"rendered":"http:\/\/www.navision-blog.de\/2009\/12\/12\/christmas-tree-in-fsharp\/"},"modified":"2009-12-12T12:54:55","modified_gmt":"2009-12-12T11:54:55","slug":"christmas-tree-in-fsharp","status":"publish","type":"post","link":"http:\/\/www.navision-blog.de\/blog\/2009\/12\/12\/christmas-tree-in-fsharp\/","title":{"rendered":"Christmas tree in F#"},"content":{"rendered":"

Today I had way too much time on the train \ud83d\ude09 , so I wrote a little functional christmas tree program:<\/p>\n

\n

let<\/span> line width j = <\/p>\n

  List.init <\/p>\n

    width <\/p>\n

    (fun<\/span> i -><\/span> if<\/span> abs(width\/2 – i) <= j then<\/span> "*"<\/span> else<\/span> " "<\/span>)<\/p>\n

 <\/p>\n

let<\/span> tree n =<\/p>\n

  List.init (n\/2) (line n) @        \/\/ treetop<\/span><\/p>\n

    List.init 2 (fun<\/span> _ -><\/span> line n 0) \/\/ trunk<\/span><\/p>\n

 <\/p>\n

let<\/span> printTree =<\/p>\n

  tree >> Seq.iter (Seq.fold (+) ""<\/span> >> printfn "%s"<\/span>)<\/p>\n

 <\/p>\n

printTree 11<\/p>\n

  <\/p>\n

\n<\/p><\/div>\n

    *     \n   ***    \n  *****\n *******  \n********* \n    *     \n    * <\/pre>\n","protected":false},"excerpt":{"rendered":"
Today I had way too much time on the train \ud83d\ude09 , so I wrote a little functional christmas tree program: let line width j =   List.init     width     (fun i -> if abs(width\/2 – i) <= j then "*" else " ")   let tree n =   List.init (n\/2) (line n) […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[1],"tags":[664,555],"_links":{"self":[{"href":"http:\/\/www.navision-blog.de\/blog\/wp-json\/wp\/v2\/posts\/933"}],"collection":[{"href":"http:\/\/www.navision-blog.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.navision-blog.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.navision-blog.de\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.navision-blog.de\/blog\/wp-json\/wp\/v2\/comments?post=933"}],"version-history":[{"count":3,"href":"http:\/\/www.navision-blog.de\/blog\/wp-json\/wp\/v2\/posts\/933\/revisions"}],"predecessor-version":[{"id":936,"href":"http:\/\/www.navision-blog.de\/blog\/wp-json\/wp\/v2\/posts\/933\/revisions\/936"}],"wp:attachment":[{"href":"http:\/\/www.navision-blog.de\/blog\/wp-json\/wp\/v2\/media?parent=933"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.navision-blog.de\/blog\/wp-json\/wp\/v2\/categories?post=933"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.navision-blog.de\/blog\/wp-json\/wp\/v2\/tags?post=933"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}