bat/tests/syntax-tests/highlighted/SML/sample.sml
2020-10-04 21:25:05 +02:00

48 lines
4.2 KiB
Standard ML
Vendored
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

val x = 0
val hello = "hello world"
val id = fn x => x
fun id' x = x
val () = print "hello world\n"
val _ = let
 val hello = "hello"
 val world = "world"
in
 print (hello ^ " " ^ world ^ "\n")
end
fun isZero n =
 if n = 0 then true
 else false
fun isTrue b =
 case b of
 true => true
 | false => false
exception Bad_value of string
fun isTrue' b =
 case b of
 true => true
 | _ => raise (Bad_value "value is not true!")
val alwaysTrue =
 isTrue' false handle Bad_value _ => true
datatype myBool = True | False
datatype shape = Square of real | Circle of real | Point
signature FOO = sig
 val foo : 'a -> 'a
end
structure Foo :> FOO = struct
 fun foo x = x
end