167
168
169
170
171
172
173
174
|
| _ as c, ' ' -> loop (i+1) (acc^^c) false
| c1, c2 -> if not tps && Random.int 3 = 0 then
loop (i+2) ((acc^^c2)^^c1) true
else
loop (i+2) ((acc^^c1)^^c2) tps
in loop 0 "" false
let () = Random.self_init(); print_string (scramble (eval top))
|
|
167
168
169
170
171
172
173
174
175
|
| _ as c, ' ' -> loop (i+1) (acc^^c) false
| c1, c2 -> if not tps && Random.int 3 = 0 then
loop (i+2) ((acc^^c2)^^c1) true
else
loop (i+2) ((acc^^c1)^^c2) tps
in loop 0 "" false
(* let () = Random.self_init(); print_string (scramble (eval top)) *)
let () = Random.self_init(); print_string(eval top)
|