Skip to content

Instantly share code, notes, and snippets.

@stedolan
Created March 11, 2016 13:52
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save stedolan/a51d6a5c013c18eac55a to your computer and use it in GitHub Desktop.
Save stedolan/a51d6a5c013c18eac55a to your computer and use it in GitHub Desktop.
let _ =
let s = read_line () in
match Array.to_list (Array.init (String.length s) (String.get s)) with
['s'; 'e'; 'c'; 'r'; 'e'; 't'; ' '; 'c'; 'o'; 'd'; 'e'] -> failwith "uh oh"
| _ -> ()
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment