summaryrefslogtreecommitdiff
path: root/libstd/sleq.myr
blob: cfc60b4fdfc7519d9ea7ac1b06cb0d5791099043 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
pkg std =
	generic sleq	: (a : @a[:], b : @a[:] -> bool)
;;

generic sleq = {a, b
	var i

	if a.len != b.len
		-> false
	;;

	for i = 0; i < a.len; i++
		if a[i] != b[i]
			-> false
		;;
	;;
	-> true
}