Bir projede öyle birşey çıkarsa yazabilirim. Ancak burada yazmam cunku demo açısından bir esprisi olmaz. rekürsif kod döngülerle alakalı cunku döngü ile aynı sonucu veriyor, fakat kod yapısı daha sade ve bazı şartlarda çalışması daha hızlı. Bazı yapay zeka algoritmalarında rekürsif kodlama, kodun cok daha açık olmasını sağlıyor. |
Perl 6'da Haskell gibi matematik formül gösterimine yakın dizi oluşturma özellikleri var. Nitekim orada Paskal üçgenini öyle oluşturmuş. Oradaki { } içindeki kod, dizide bir sonraki elemanın nasıl olacağını belirtiyor. Perl 6 ile fibonacci serisini tek satırda oluşturabilirsin:
Sondaki Inf Infinity operatörü. O yüzden bu şekilde oluşturulan dizilerden slice / dilim almak gerekiyor:
Oradaki 0,1, dizinin ilk iki elemanını belirliyor -> devamını $a,$b değişkenlerine atıyor { } içinde ise sonraki eleman $a+$b yani bir önceki 2 elemanın toplamı olacağı tanımlanıyor. |
Çok başarılı dediğin C ile, kullanıcıdan alınan rakama kadar Fibonacci dizisini kaç satırda yazabilirsin? Perl 6 ile tek satırda yazabiliyorum: < Resime gitmek için tıklayın > |
https://www.programiz.com/c-programming/examples/fibonacci-series for (int n=1, i = 1, t1 = 0, t2 = 1,nextTerm; i <= n; i==1?scanf("%d", &n):i=i,printf("%d, ", t1), nextTerm = t1 + t2, t1 = t2, t2 = nextTerm,++i);; c dili türkçemiz gibi esnek bir dildir, ikisinin de kıymetini bilelim ![]() |
Kullanıcıdan alınan rakama kadar Paskal ücgenini yazdırmak:< Resime gitmek için tıklayın > |
hiç tek satırdan fazla yaptığın bir şey yokmu? |
uygulamalar cok satırlı olur fakat buradaki konumuz uygulamalar değil orta-temel programcılık soruları ve onları en kısa şekilde çözmek için fonksiyonel stilde program yazmak. Yukarda gördüğün son 2 çözüm, salt fonksiyonel çözüm örneğin... |
Temel düzey programlama sorusu (19.Ağu.2019) Kullanıcı 2020TL, 3400TL, 5500TL gibi maaş listesi ve her bir maaşa uygulanacak artış oran listesi ve para birimi girecek. Örnek: Kullanıcı şunları girecek: maaş_listesi: (2020, 3400, 5500) artis_oran_listesi: (1.25, 1.1, 1.0) para_birimi: "TL" Program şunu basacak: Maaş:2020, Yeni: 2525.00TL Maaş:3400, Yeni: 3740.00TL Maaş:5500, Yeni: 5500.00TL Bu program Scheme ile 3, Perl 6 ile tek satırda okunaklı şekilde yazılabiliyor. |
Asal sayı dizisi. Kullanıcının girdiği rakam kadar asal sayı dizisi çıkaran kod yazınız. Örneğin kullanıcı 10 girdiyse 2 3 5 7 11 13 17 19 23 29 gibi. Not: Bu soruyu sadece 1 satırda kodladım :) |
Yukarda temel Computer Science konusu olan asal sayı - prime number sorusuna yanıt gelmedi. Başka bir soru: Formul kullanarak Altın Oranı (yaklaşık olarak) bulunuz. Örnek (Perl 6) # formül ile altın oranı bulan program Bu kod örnek amaçlı ve kommentler, blok işaretleri { } ve sonraki ekstra satır hariç 5 satır. Perl 6 ile bunu 1 satırda kodladım. |
SORU: Kullanıcının girdiği dizide "a e i o u" sırasını en uzun içeren seriyi bulmak. Örnekler: "aeiaaioaauaeiou" Bu soru 1-2 yıl evvel forumda bir ödev sorusu olarak sorulmuştu. Benim çözümüm 3 satır fakat biraz kasarak 2 hatta 1 satıra indirebilirim. |
Soru: 1 Milyonunu fibonacci sayısını bulunuz. 4 satırlık kod ile yaklaşık 20sn'de buldum. Sayının uzunluğu 208988 basamak! Not1: Cok büyük rakamları tutabilen SBCL derleyici kullandım Not2: 1 Milyonuncu fibonacci sayısının uzunluğunu program kodu ile değil, editörden ölçerek buldum. |
< Resime gitmek için tıklayın > Fibonacci genel teriminde N yerine 1 milyon yazınca çıkar. —— 2 elemanlı bir queue( tek yönlü olandan, dequeue olmayan dı galiba) oluşturalım 1 1 olsun Sonra for döndürüp 1 milyon kere{ İçindeki ikisini topla queue ye ekle Sonra diğer kenardaki elemanı çıkart } Böylece queue muz 1,1 1,2 2,3 3,5 5,8 ... gibi oldu 1 milyonu da bulunca yazdırırız Buna dynamic programming deniyor galiba, dinamik programala nedir diye 1-2 örnek bakmıştım Map, tablo falan kullanıyordu. —— Recursion ile de yapılabilir F(n)=f(n-1)+f(n-2) gibi Bunlarda javada depth hatası verir gibi, ama başka özel yolu vardır belki |
O formülü hatırladım fakat o fibonacci sayısını yaklaşık olarak hesaplıyor diye biliyorum yani tam degeri vermiyor. Tam değeri bulmak için optimize edilmiş rekürsif fonksiyon en hızlı yol. Ancak sonuç 1 milyonuncu fibonacci sayısı 208988 rakam uzunluğunda olduğu için sadece optimizasyon da yeterli değil, dev rakamları tutacak compiler veya C# için BigInt gibi kütüphane gerekli. SBCL (Steel Bank Common Lisp) compiler dev rakamları tutabildiği için onu kullandım 30sn gibi sürde buldu. Şu an başında olduğum bilgisayarda SBCL ile eşdeğer fakat biraz daha düşük performanslu CMUCL (Carneige Mellon University Common Lisp) derleyici var ve 32bit o yüzden sanırım 1dk dan fazla sürdü (yine tam ölçmedim 20-30sn sonra bilgisayarın başından kalktım birkaç dk sonra döndüğümde hesaplamıştı) < Resime gitmek için tıklayın > Emacs editörün durum çubuğundaki Bot (?? 208988) sonucun karakter sayısını gösteriyor yani 1 Milyonuncu Fibonacci 208988 rakam uzunluğunda. Senin formuldeki (1+kök 5) / 2 altın oran rakamı bu arada. fibonacci dizisi ile altın oran arasında matematiksel ilişki var. |
bu işlerde makine gücü de önemlidir ama bendeki makine de 15 saniye civarı hesaplıyor en kısa kod işine bakmıyorum tabi
|
Evet 15 sn sürüyor fakat fibonacci sayısının sadece uzunluğunu ilettiği için. Sayının kendisini konsola yazdırması (ToString().Length'i kaldırarak) dakikalar sürdü ve bir hata ile sonlandı: < Resime gitmek için tıklayın > Sayının kendisini yazdırmak bu soruya dahil. |
Bende console a yazdırma da bir problem çıkmadı süresi de aynı |
bu sorularda matrix exponentiation kullanilir ki soyle: |1 1| * |F1 0| = |F2 0| |1 0| * |F0 0| = |F1 0| |1 1| n |F1 0| = |Fn+1 0| |1 0| * |F0 0| = |Fn 0| (ilk matrisin n inci kuvvetini aliyoruz ilk matrisimiz ile carpiyoruz) bu yontemde matrisin n. kuvvetini hesaplamak icin fast exponentiation kullanilir. ornek python kodu burada(kodu ben yazmadim ornege uysun diye sayilari degistim sadece ):
|
Matriks ile üs hesaplama kodu biraz karışık. Ve o kod milyonuncu fibonacci yi ne kadar sürede hesaplar o da belli değil. Benim kod en kısa ve C# tan sonra en hızlı. Aşağıdaki milyonuncu fibonacciyi hesaplama süresini ölçtüm, yaklaşık 50sn. @Gökşen PASLI C# BigInt modülünü cok iyi yazmışlar, yüzbinlerce rakam uzunluğunda Int 'i bile sorunsuz hesaplıyor. Fakat senin kodu mono-4.2.1 kurulu Mac OS X'te denerken error CS0234: The type or namespace name `Console' does not exist in the namespace `System'. Are you missing an assembly reference? hatası verdi. Kullandığım build dosyası:
Oradaki System.Numerics.dll 'i sorunsuz kullanıyor, ardından gelen 3 System.xxx.dll'i ben ekledim, Console 'u bulur diye, bulamadı. mono-4.2.1'de Console desteği yok gibi. İlginç bir eksiklik. O çalışsaydı, Mac'te senin kodu deneyebilecektim. < Resime gitmek için tıklayın > |
bu kod verilen isme göre alt klasörler dahil tüm dosya klasör isimlerini karşılaştırıyor, bunu rekürsif kullanmadan dögüyle yazabilirmisin? yada rekürsif kullanıp döngü kullanmadan.
Bu mesaja 1 cevap geldi. Cevapları Gizle
Bu mesajda bahsedilenler: @vonderplanitz