074259201e
It is based on an approach suggested by Andrew Kent, and refined by Sebastian Ullrich. TODO: expand the the parallel `for`s at `Do.lean`.
40 lines
958 B
Text
40 lines
958 B
Text
def g (xs : Array Nat) (ys : Array Nat) : IO Unit := do
|
||
let mut s := toStream ys
|
||
for x in xs do
|
||
match Stream.next? s with
|
||
| none => break
|
||
| some (y, s') =>
|
||
s := s'
|
||
IO.println s!"x: {x}, y: {y}"
|
||
|
||
#eval g #[1, 2, 3] #[4, 5]
|
||
#print "-----"
|
||
|
||
def f [Stream ρ α] [ToString α] (xs : Array Nat) (ys : ρ) : IO Unit := do
|
||
let mut ys := ys
|
||
for x in xs do
|
||
match Stream.next? ys with
|
||
| none => break
|
||
| some (y, ys') =>
|
||
ys := ys'
|
||
IO.println s!"x: {x}, y: {y}"
|
||
|
||
#eval f #[1, 2, 3] (toStream #[4, 5])
|
||
#print "-----"
|
||
#eval f #[1, 2] (toStream [4, 5, 6])
|
||
#print "-----"
|
||
#eval f #[1, 2, 3] (toStream "hello")
|
||
|
||
def h [Stream ρ α] [ToString α] (s : ρ) : IO Unit := do
|
||
for a in streamOf s do
|
||
IO.println a
|
||
|
||
#eval h (toStream [1, 2, 3])
|
||
#print "-----"
|
||
#eval h [1, 2, 3]
|
||
#print "-----"
|
||
#eval h (toStream #[1, 2, 3])
|
||
#print "-----"
|
||
#eval h #[1, 2, 3, 4, 5, 6, 7][2:5]
|
||
#print "-----"
|
||
#eval h ([1, 2, 3], [4, 5, 6])
|