source: Deliverables/D4.1/Util.ml @ 130

Last change on this file since 130 was 130, checked in by mulligan, 9 years ago

Commit again? Not sure what happened. All Parser files were already
under SVN control.

File size: 266 bytes
Line 
1let ($) f x = f x
2;;
3
4let (<*>) f g x = f (g x)
5;;
6
7let char_list_of_string s =
8  let str_length = String.length s in
9  let rec aux s l buff =
10    if l = str_length then
11      buff
12    else
13      aux s (l + 1) ((String.get s l)::buff)
14  in
15    List.rev $ aux s 0 []
Note: See TracBrowser for help on using the repository browser.