Jump to content

Look-and-say sequence: Difference between revisions

Look-and-say sequence (view source)

Revision as of 07:25, 25 October 2009

40 bytes removed ,  14 years ago
→‎{{header|OCaml}}
Line 691:
let lookandsay =
Str.global_substitute (Str.regexp "\\(.\\)\\1*")
(fun s -> letstring_of_int m =(String.length (Str.matched_string s)) in^
string_of_int (StringStr.lengthmatched_group m1 s) ^
String.sub m 0 1)
 
let () =
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/106075"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information