Dengan mekanisme apa fungsi fibonacci ini dimoalkan? fib = (map fib' [0..] !!) where fib' 1 = 1 fib' 2 = 1 fib' n = fib (n-2) + fib (n-1) Dan pada catatan terkait, mengapa versi ini tidak? fib n = (map fib' [0..] !! n) where fib' 1 = 1 fib' 2 = 1 fib' n = fib (n-2) + fib (n-1)...
Frasa yang saya perhatikan baru-baru ini adalah konsep gaya "tanpa titik" ... Pertama, ada pertanyaan ini , dan juga pertanyaan ini . Kemudian, saya menemukan di sini mereka menyebutkan "Topik lain yang mungkin layak untuk didiskusikan adalah ketidaksukaan penulis terhadap gaya bebas...
Ini adalah kode yang saya temukan di suatu tempat tetapi ingin tahu cara kerjanya: findIndices :: (a -> Bool) -> [a] -> [Int] findIndices _ [] = [] findIndices pred xs = map fst (filter (pred . snd) (zip [0..] xs)) Output: findIndices (== 0) [1,2,0,3,0]==[2,4] , di mana predadalah...