Execute SNUSP/OCaml: Difference between revisions

Content deleted Content added
m →‎{{header|OCaml}}: added bounds
PureFox (talk | contribs)
m Fixed syntax highlighting.
 
(2 intermediate revisions by 2 users not shown)
Line 1:
{{implementation|SNUSP}}{{collection|RCSNUSP}}
 
This is an implementation of '''Modular SNUSP'''.
<lang ocaml>let input_line ic =
 
Usage: ocaml rcsnusp.ml srccode.snusp
 
<langsyntaxhighlight lang="ocaml">let input_line ic =
try Some(input_line ic)
with End_of_file -> None
Line 75 ⟶ 79:
| _ -> loop (next_pos pos dir) dir cells stk
in
loop (dolar_pos code) (1,0) ([],0,[]) []</langsyntaxhighlight>