computeralgebra https://blog.hatena.ne.jp/computeralgebra/ 非専門的シンギュラリティー研究所 https://computeralgebra.hatenablog.com/ 関数プログラミング 関数プログラミングと無限論理多項式 F# の例(2) F# もコンストラクターを3個に削減しました。Seq.unfold (iterate に相当)を使っています。 let Align0<'T> (xs: 'T list) (len: int) (z: 'T): 'T list = [ for xd in xs do yield xd for i in xs.Length .. len - 1 do yield z ] let ZipWith0<'T, 'U> (z: 'T) (f: 'T -> 'T -> 'U) (xs: 'T list) (ys: 'T list): 'U list = let xsx = Align0 x… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fcomputeralgebra.hatenablog.com%2Fentry%2F2022%2F02%2F06%2F010140" title="関数プログラミングと無限論理多項式(12) - 非専門的シンギュラリティー研究所" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> https://m.media-amazon.com/images/I/51brU4doQFL._SL500_.jpg Hatena Blog https://hatena.blog 2022-02-06 01:01:40 rich https://computeralgebra.hatenablog.com/entry/2022/02/06/010140 1.0 100%