Execute SNUSP/OCaml: Difference between revisions

Content added Content deleted
m (Fixed syntax highlighting.)
 
Line 5: Line 5:
Usage: ocaml rcsnusp.ml srccode.snusp
Usage: ocaml rcsnusp.ml srccode.snusp


<lang ocaml>let input_line ic =
<syntaxhighlight lang="ocaml">let input_line ic =
try Some(input_line ic)
try Some(input_line ic)
with End_of_file -> None
with End_of_file -> None
Line 79: Line 79:
| _ -> loop (next_pos pos dir) dir cells stk
| _ -> loop (next_pos pos dir) dir cells stk
in
in
loop (dolar_pos code) (1,0) ([],0,[]) []</lang>
loop (dolar_pos code) (1,0) ([],0,[]) []</syntaxhighlight>