blob: 7c4d1ed05b3c502e47ddf1c5c6a3f0ef09af48e8 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
const addr = 2
const word = 4
or_n<n>(a:[n],b:[n]) = (o:[n]) where
if n = 0 then
o = []
else
o = (a[0] and b[0]).(or_n<n-1>(a[1..], b[1..]))
end if
end where
main(ra:[addr], we, wa:[addr], c:[word]) = (o:[word]) where
o = ram<addr, word>(ra, we, wa, or_n<word>(o, c))
end where
|
