Mercurial > urweb
annotate tests/pcase.ur @ 1871:c3119c263bd3
Add -ccompiler command line argument
This allows user to overwrite the compiler set during the configure phase
author | Sergey Mironov <grrwlf@gmail.com> |
---|---|
date | Tue, 20 Aug 2013 17:13:50 +0400 |
parents | 71bafe66dbe1 |
children |
rev | line source |
---|---|
adamc@173 | 1 val flip = fn x : int => case x of 0 => 1 | _ => 0 |
adamc@173 | 2 |
adamc@173 | 3 val zero = flip 1 |
adamc@173 | 4 val one = flip 0 |
adamc@173 | 5 |
adamc@173 | 6 val flipS = fn x : string => case x of "" => "Hello world!" | _ => "" |
adamc@173 | 7 |
adamc@173 | 8 val s1 = flipS "" |
adamc@173 | 9 val s2 = flipS "Boop" |