es/doiterator.es at master · mveety/es · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
#!/usr/bin/env es

fn iterator list {
	result @{
		let(x = $list(1)) {
			list = $list(2 ...)
			result $x
		}
	}
}

fn iterator2 list {
	let(list1=;list2=) {
		for((i j) = $list) {
			list1 = $list1 $i
			list2 = $list2 $j
		}
		result <={iterator $list1} <={iterator $list2}
	}
}

fn do fun iter {
	let (res=; x = <=$iter) {
		while {! ~ $#x 0} {
			res = $res <={$fun $x}
			x = <=$iter
		}
		result $res
	}
}

fn do2 fun iter1 iter2 {
	let (res=; x = <=$iter1; y = <=$iter2) {
		while {! ~ $#x 0 && ! ~ $#y 0} {
			res = $res <={$fun $x $y}
			x = <=$iter1
			y = <=$iter2
		}
		result $res
	}
}

fn accumulate start fun iter {
	let (res = $start; x = <=$iter) {
		while {! ~ $#x 0} {
			res = <={$fun $res $x}
			x = <=$iter
		}
		result $res
	}
}

fn accumulate2 start fun iter1 iter2 {
	let (res = $start; x = <=$iter1; y = <=$iter2) {
		while {! ~ $#x 0 && ! ~ $#y 0} {
			res = <={$fun $res $x $y}
			x = <=$iter1
			y = <=$iter2
		}
		result $res
	}
}


fn dolist fun list {
	iterator $list |> do $fun
}