8 lines
364 B
Forth
8 lines
364 B
Forth
|
EKG 2 |> Seq.take 45 |> Seq.iter(printf "%2d, ")
|
||
|
|
EKG 3 |> Seq.take 45 |> Seq.iter(printf "%2d, ")
|
||
|
|
EKG 5 |> Seq.take 45 |> Seq.iter(printf "%2d, ")
|
||
|
|
EKG 7 |> Seq.take 45 |> Seq.iter(printf "%2d, ")
|
||
|
|
EKG 9 |> Seq.take 45 |> Seq.iter(printf "%2d, ")
|
||
|
|
EKG 10 |> Seq.take 45 |> Seq.iter(printf "%2d, ")
|
||
|
|
printfn "%d" (let n,_,_,_=EKGconv 2 5|>Seq.last in ((Set.count n)+1)
|