unison/unison-src/tests/stream/flatmap-finite2.u
2018-07-05 23:10:30 -04:00

7 lines
165 B
Plaintext

Stream.to-sequence
(Stream.take 5
(Stream.flat-map
(n -> Stream.cons 7
(Stream.take 1 (Stream.constant n)))
(Stream.from-uint64 0)))