// HSP
#module
#defcfunc min int a, int b
	if a<b : return a
	return b
 
#defcfunc strcnv var sw, str ss, local len
	sdim sw, (strlen(ss)+1)*2
	cnvstow sw, ss
	repeat
		if wpeek(sw, len*2)=0 : break
		len++
	loop
	return len
 
#defcfunc levenshtein str a_, str b_, \
	local a, local b, local a_len, local b_len, local cost, local x, local y
	a_len=strcnv(a, a_)
	b_len=strcnv(b, b_)
	dim cost, a_len+1, b_len+1
	repeat a_len+1 : cost(cnt, 0)=cnt : loop
	repeat b_len+1 : cost(0, cnt)=cnt : loop
	for y, 1, b_len+1
		for x, 1, a_len+1
			change_cost=(wpeek(a, (x-1)*2)!wpeek(b, (y-1)*2))*2
			cost(x, y)=min(min(cost(x-1, y)+1, cost(x, y-1)+1), cost(x-1, y-1)+change_cost)
		next
	next
	return cost(a_len, b_len)
 
#global
 
key="プログラミングのお題スレ"
list.0="推薦図書/必読書のためのスレッド 71"
list.1="Windowsストアアプリ開発について語れ"
list.2="C#,C＃の宿題片付けます。"
list.3="C言語なら俺に聞け（入門編）Part 123"
list.4="バージョン管理システムについて語るスレ9"
list.5="プログラミングの問題を出すスレ"
list.6="C++相談室 part108"
list.7="プログラミングのお題 Part2"
list.8="C言語なら俺に聞け（入門編）Part 122"
list.9="VBScriptについて必死に話し合うスレ"
list.10="Lisp Scheme Part37"
list.11="構造化ウェブプログラミング言語Dart2"
 
for i, 0, length(list)
	for j, 1, length(list)-i
		if levenshtein(list(j-1), key)>levenshtein(list(j), key) {
			t=list(j-1)
			list(j-1)=list(j)
			list(j)=t
		}
	next
next
 
foreach list
	mes list.cnt
loop
 

Ly8gSFNQCiNtb2R1bGUKI2RlZmNmdW5jIG1pbiBpbnQgYSwgaW50IGIKCWlmIGE8YiA6IHJldHVybiBhCglyZXR1cm4gYgoKI2RlZmNmdW5jIHN0cmNudiB2YXIgc3csIHN0ciBzcywgbG9jYWwgbGVuCglzZGltIHN3LCAoc3RybGVuKHNzKSsxKSoyCgljbnZzdG93IHN3LCBzcwoJcmVwZWF0CgkJaWYgd3BlZWsoc3csIGxlbioyKT0wIDogYnJlYWsKCQlsZW4rKwoJbG9vcAoJcmV0dXJuIGxlbgoKI2RlZmNmdW5jIGxldmVuc2h0ZWluIHN0ciBhXywgc3RyIGJfLCBcCglsb2NhbCBhLCBsb2NhbCBiLCBsb2NhbCBhX2xlbiwgbG9jYWwgYl9sZW4sIGxvY2FsIGNvc3QsIGxvY2FsIHgsIGxvY2FsIHkKCWFfbGVuPXN0cmNudihhLCBhXykKCWJfbGVuPXN0cmNudihiLCBiXykKCWRpbSBjb3N0LCBhX2xlbisxLCBiX2xlbisxCglyZXBlYXQgYV9sZW4rMSA6IGNvc3QoY250LCAwKT1jbnQgOiBsb29wCglyZXBlYXQgYl9sZW4rMSA6IGNvc3QoMCwgY250KT1jbnQgOiBsb29wCglmb3IgeSwgMSwgYl9sZW4rMQoJCWZvciB4LCAxLCBhX2xlbisxCgkJCWNoYW5nZV9jb3N0PSh3cGVlayhhLCAoeC0xKSoyKSF3cGVlayhiLCAoeS0xKSoyKSkqMgoJCQljb3N0KHgsIHkpPW1pbihtaW4oY29zdCh4LTEsIHkpKzEsIGNvc3QoeCwgeS0xKSsxKSwgY29zdCh4LTEsIHktMSkrY2hhbmdlX2Nvc3QpCgkJbmV4dAoJbmV4dAoJcmV0dXJuIGNvc3QoYV9sZW4sIGJfbGVuKQoKI2dsb2JhbAoKa2V5PSLjg5fjg63jgrDjg6njg5/jg7PjgrDjga7jgYrpoYzjgrnjg6wiCmxpc3QuMD0i5o6o6Jam5Zuz5pu4L+W/heiqreabuOOBruOBn+OCgeOBruOCueODrOODg+ODiSA3MSIKbGlzdC4xPSJXaW5kb3dz44K544OI44Ki44Ki44OX44Oq6ZaL55m644Gr44Gk44GE44Gm6Kqe44KMIgpsaXN0LjI9IkMjLEPvvIPjga7lrr/poYzniYfku5jjgZHjgb7jgZnjgIIiCmxpc3QuMz0iQ+iogOiqnuOBquOCieS/uuOBq+iBnuOBke+8iOWFpemWgOe3qO+8iVBhcnQgMTIzIgpsaXN0LjQ9IuODkOODvOOCuOODp+ODs+euoeeQhuOCt+OCueODhuODoOOBq+OBpOOBhOOBpuiqnuOCi+OCueODrDkiCmxpc3QuNT0i44OX44Ot44Kw44Op44Of44Oz44Kw44Gu5ZWP6aGM44KS5Ye644GZ44K544OsIgpsaXN0LjY9IkMrK+ebuOirh+WupCBwYXJ0MTA4IgpsaXN0Ljc9IuODl+ODreOCsOODqeODn+ODs+OCsOOBruOBiumhjCBQYXJ0MiIKbGlzdC44PSJD6KiA6Kqe44Gq44KJ5L+644Gr6IGe44GR77yI5YWl6ZaA57eo77yJUGFydCAxMjIiCmxpc3QuOT0iVkJTY3JpcHTjgavjgaTjgYTjgablv4XmrbvjgavoqbHjgZflkIjjgYbjgrnjg6wiCmxpc3QuMTA9Ikxpc3AgU2NoZW1lIFBhcnQzNyIKbGlzdC4xMT0i5qeL6YCg5YyW44Km44Kn44OW44OX44Ot44Kw44Op44Of44Oz44Kw6KiA6KqeRGFydDIiCgpmb3IgaSwgMCwgbGVuZ3RoKGxpc3QpCglmb3IgaiwgMSwgbGVuZ3RoKGxpc3QpLWkKCQlpZiBsZXZlbnNodGVpbihsaXN0KGotMSksIGtleSk+bGV2ZW5zaHRlaW4obGlzdChqKSwga2V5KSB7CgkJCXQ9bGlzdChqLTEpCgkJCWxpc3Qoai0xKT1saXN0KGopCgkJCWxpc3Qoaik9dAoJCX0KCW5leHQKbmV4dAoKZm9yZWFjaCBsaXN0CgltZXMgbGlzdC5jbnQKbG9vcAo=