Execute HQ9+: Difference between revisions
Content added Content deleted
(Console output is made using monads) |
|||
| Line 695: | Line 695: | ||
| else = fail ("Unrecognized " ++ x) |
| else = fail ("Unrecognized " ++ x) |
||
where r = ref 0 |
where r = ref 0 |
||
be c = upper x == c |
be c = char.upper x == c |
||
h () = writen "Hello, world!" |
h () = writen "Hello, world!" |
||
q () = writen src |
q () = writen src |
||