2011-05-23から1日間の記事一覧
書いてみた。 sleep sortとは コード open Posix; fun allwait () = let val _ = (Process.wait (); ()) handle SysErr => () in allwait () end fun sleep_print x = (Process.sleep (Time.fromSeconds (LargeInt.fromInt x)) ;print (Int.toString x)) fun…