METHINKS IT IS A WEASEL
Posted feedbacks - Scala
3だと収束しないので5で。
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 | import scala.util.Sorting.stableSort
class Weasel(val target:String) {
val rnd = new Random
val len = target.size
val chars = (65 to 90).map(_.asInstanceOf[char])
def newchar = chars(rnd.nextInt(chars.size))
def similarity(s:String) = (len /: (0 until len)){(r,i) =>
r-(if(target(i) == s(i)){1}else{0})
}
def sort(lst:Seq[String]) = stableSort(lst, similarity _).toList
def mutate(s:String) = (1 to 5).map{x=>
var a = s.toArray
a(rnd.nextInt(len)) = newchar
a.mkString("")
}
def start = {
val lst = sort((1 to 300).map(x=>(1 to len).map(y=>newchar).mkString("")))
def iter(ss:List[String], generation:int):unit = {
printf("Generation %d\n%s\n%s\n\n", generation, "-"*40, ss.take(5).mkString("\n"))
ss match {
case head::rest if head == target => ()
case x =>
iter(sort(x.flatMap(mutate)).take(300), generation+1)
}
}
iter(lst, 0)
}
}
new Weasel("METHINKSITISAWEASEL").start
|
ytakenaka
#6287()
Rating4/8=0.50
ランダムな文字からMETHINKS IT IS A WEASELを作るプログラムを作れ。
簡単に流れを書いてみます。
１：ランダムな２０文字を持つ文字列をもった３００個作ります。
２：その文字列が"METHINKSITISAWEASEL"に近いものからソートします。
３：それぞれの文字列のなか1文字を別の文字に変化させたものを３つ用意します。
４：それを２：のソートをして上位３００個残す。（９００個あるうちで上位３００個残すということです。）
５：以後３：と４：を繰り返す。
ランダムな文字変化は大文字だけでいいです。簡単にするために空白文字を外してあります。
METHINKS IT IS WEASELができたら終了。３と4の間でソートしたもので一番上位のものを毎回表示させると変化が楽しめます。:-)
Rickard Dawkinsがブラインドウォッチメイカー(現題：盲目の時計職人）の３章で書いていた有名なものです。さらに一般化してもらってもいいです。
参考
[ reply ]