Alp Özmert yazmış:
> Selam!
>
> Selem <[EMAIL PROTECTED]> yazmış:
>
>   
>> -- What is the exponent of the largest power of two whose base seven
>> representation doesn't contain three zeros in a row?
>>     
>
> Hiç de optimal olmayan bir çözüm:
>
> (do ((i 10000 (1- i)))
>      ((not (search "000" (write-to-string (expt 2 i) :base 7))) 
>      i))
>
> Bu soru ile uğraşırken çözemediğim bir problem ile karşılaştım. Bu
> betiği onbin değil de yüzbinden geri saydırınca tabii ki de zaman
> alıyor. Ben de bir kaç kere bölüp nerelerde olduğuna bakmak istedim
> ama beceremedim. (Bölüp değişkenlerin değerlerine işlev çağrılarına
> falan bakabiliyorum ama i'nin değerini bulamadım.) Yardımcı
> olabilecek olursa sevinirim.
>
> Saygılar,
> Alp Özmert
>   
http://hpaste.org/2240

Acemi bir programcı olarak ben de aynı deneme yanılma çözümünü haskell
ile denedim. İlginç bir problemmiş, üzerinde düşünmesi bile eğitici.
Teşekkürler.

Sevgiler...
--
aycan

_______________________________________________
cs-lisp mailing list
cs-lisp@cs.bilgi.edu.tr
http://church.cs.bilgi.edu.tr/lcg
http://cs.bilgi.edu.tr/mailman/listinfo/cs-lisp

Cevap