METHINKS IT IS A WEASEL
Posted feedbacks - OCaml
愚直に実装。収束させるために派生文字列を10個に増やしました。大体50-100世代辺りで目的の文字列が作れるようです。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 | let target = [
'M'; 'E'; 'T'; 'H'; 'I'; 'N'; 'K'; 'S';
'I'; 'T'; 'I'; 'S'; 'A'; 'W'; 'E'; 'A'; 'S'; 'E'; 'L';
];;
let similarity str =
List.fold_left2 (fun n target' str' ->
n + abs ((Char.code target') - (Char.code str'))
) 0 target str
;;
let compare' a b = compare (similarity a) (similarity b);;
let random_char () = Char.chr (65 + (Random.int 26));;
let rec random_string list = function
| 0 -> list
| _ as n -> random_string (random_char () :: list) (n-1)
;;
let rec create_initial_list list = function
| 0 -> list
| _ as n -> create_initial_list ((random_string [] 19) :: list) (n-1)
;;
let change str =
let i = Random.int 19 and c = random_char () in
let _, res = List.fold_left (fun (i', res) c' ->
if i = i' then i'+1, c::res else i'+1, c'::res
) (0, []) (List.rev str) in res
;;
let print_result n str =
Printf.printf "G%d: " n;
List.iter (fun c -> print_char c) str;
Printf.printf " (%d)" (similarity str);
print_newline ()
;;
let rec generation n list =
let sorted =
List.sort compare' (List.flatten (List.map (fun str ->
[change str; change str; change str; change str; change str;
change str; change str; change str; change str; change str;]
) list))
in
let _, res = List.fold_left (fun (i, res) str ->
if i < 300 then i+1, res @ [str] else i, res
) (0, []) sorted in
print_result n (List.hd res);
if (similarity (List.hd res)) > 0 then
generation (n+1) res
else
print_endline "Finished."
let main =
Random.self_init ();
let list = create_initial_list [] 300 in
generation 0 list
|
ytakenaka
#6287()
Rating4/8=0.50
ランダムな文字からMETHINKS IT IS A WEASELを作るプログラムを作れ。
簡単に流れを書いてみます。
１：ランダムな２０文字を持つ文字列をもった３００個作ります。
２：その文字列が"METHINKSITISAWEASEL"に近いものからソートします。
３：それぞれの文字列のなか1文字を別の文字に変化させたものを３つ用意します。
４：それを２：のソートをして上位３００個残す。（９００個あるうちで上位３００個残すということです。）
５：以後３：と４：を繰り返す。
ランダムな文字変化は大文字だけでいいです。簡単にするために空白文字を外してあります。
METHINKS IT IS WEASELができたら終了。３と4の間でソートしたもので一番上位のものを毎回表示させると変化が楽しめます。:-)
Rickard Dawkinsがブラインドウォッチメイカー(現題：盲目の時計職人）の３章で書いていた有名なものです。さらに一般化してもらってもいいです。
参考
[ reply ]