취미 프로 그래 밍: 고요 한 밤 생각 (F \ # 3.0 버 전)

open System

let print (text : string) offset =
    query {
        for (c, i) in Seq.zip text (seq {0 .. text.Length - 1}) do
        groupValBy (string c) (i % offset) into g
        select (g |> Seq.reduce (fun c1 c2 -> c2 + "|" + c1))
    } |> Seq.iter (printfn "%s")

print "                    " 5

// | | | 
// | | | 
// | | | 
// | | | 
// | | | 

좋은 웹페이지 즐겨찾기