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