▽なんで線路 ●03/09 02:19 11 years ago · 1 note11 years ago · 39 notes11 years ago · 5 notes11 years ago · 75 notes11 years ago · 25 notes11 years ago · 3 notes11 years ago · 1 note11 years ago · 27 notes11 years ago11 years ago
▽terazzoの日記 ●03/08 13:35 2025-03-06PHPで無限ストリームの直積(番外編)そもそもの発端のこれterazzo.hatenadiary.orgそこで、下図に示すように、対角線上に組を生成していくことにします。お気楽 Haskell プログラミング入門リスト : 組の生成 (2)pair_stream' :: [a] -> [b] -> [(a, b)]pair_stream' xs ys = makePair 1 xs ys where makePair n xs ys = zip (take n xs) (reverse (take n ys)) ++ makePair (n + 1) xs ysこれ3個以上に拡張するの難しいかなと思ってたけど思ったほどでもなかった。対角線じゃなくて対角面?になるけど、考え方としては「要素のインデックス値の合計が一定になるように次の要素を取得するストリ