English description follows.
Bu betik bir bulmaca çözücüdür. Aşağıda alıntılanan tarzdaki problemleri çözmeye yarar.
Öyle bir anlamlı sözcük bulun ki,
aşağıda verilen dört anlamlı sözcüğün
her biriyle harfleri bir araya getirildiğinde
yeni anlamlı sözcükler oluşsun.
Dolma, Beyinli, Kılıç, Devirmek.
Türkçe kelime listesi edinmeniz gerekmektedir. Bunu maidis/mythes-tr gibi projelerde bulabilirsiniz. Lütfen adresi verilen bu projeyi kullanmadan önce lisansını okuduğunuzdan emin olun.
Komut satırına argüman olarak kelime listesi dosyasının konumunu ve peş peşe bulmaca kelimelerini girmelisiniz.
perl common-word.pl kelime-listesi.txt dolma beyinli kılıç devirmek
Bu aşağıdaki gibi bir sonuç çıkaracaktır.
ağaç/çağa:
dolma + ağaç/çağa = doğaçlama
beyinli + ağaç/çağa = yabançileği
kılıç + ağaç/çağa = ağaççılık
devirmek + ağaç/çağa = çavdarekmeği
Bu örnek sorunun çözümü "ağaç veya çağa" olarak belirlenebilir.
Bu betik kullanılarak yeni sorular da üretilebilir. Bunun için önce cevabınızı belirleyin. Daha sonra bu kelimeyi betiğe tek başına verin.
perl common-word.pl kelime-listesi.txt ağaç
Bu size çok sayıda çözüm önerecektir. Bu çözümler arasından istediğiniz sayıda kelimeyi seçerek kendi bulmacanızı hazırlayabilirsiniz.
Bu betik MIT lisansı ile lisanslanmıştır. Lisansın İngilizce orijinal metnini buradan, gayrıresmi Türkçe çevirisini buradan okuyabilirsiniz.
Kıvanç Yazan <kyzn at cpan.org>
This script is a riddle solver. It comes up with solutions for riddles like below.
Find a meaningful word such that,
when combined with each word below,
letters can be rearranged into a new
meaningful word.
Beer, Trash, Perish, Bored.
You will need a word list. If you are on Debian/Ubuntu based system, you can install one by running following command.
sudo apt-get install wamerican
This will install a word list to /usr/share/dict. To see what other languages are available, use following command.
sudo apt-cache search "dictionary words"
In arguments, you should first put path to your word list. Then give riddle words.
perl common-word.pl /usr/share/dict/american-english beer trash perish bored
This will print following output.
find:
beer + find = befriend
trash + find = firsthand
perish + find = friendship
bored + find = forbidden
The only solution here is "find".
This script can be used to generate new questions as well. To do that, think of your answer first. Then pass it to script alone.
perl common-word.pl /usr/share/dict/american-english press
This will produce many answers. You can choose as many words from list of answers to prepare your very own riddle.
MIT.
Kivanc Yazan <kyzn at cpan.org>