RosettaCodeData/Task/Extend-your-language/F-Sharp/extend-your-language-2.fs

5 lines
135 B
Forth

if2 (13<23) (23<42) (fun()->printfn "tt")
elseff (fun()->printfn "tf")
elseft (fun()->printfn "ft")
elseff (fun()->printfn "ff")