10/02/12 22:56:39
>>696
// F#
[<EntryPoint>]
let main _ =
"1～10の数字を3つ入力:"
|> Seq.unfold (printf "%s" >> System.Console.ReadLine >> System.Int32.TryParse
>> function
| true, x when 1 <= x && x <= 10 -> Some(Some(x), "次を入力:")
| _ -> Some(None, "1～10の数字を再入力:"))
|> Seq.choose id |> Seq.take 3 |> Seq.sort |> Seq.iter (printf "%d ")
0