diff options
author | Alex AUVOLAT <alex.auvolat@ens.fr> | 2013-11-05 10:18:00 +0100 |
---|---|---|
committer | Alex AUVOLAT <alex.auvolat@ens.fr> | 2013-11-05 10:18:00 +0100 |
commit | 94e88e887cf2ee4c6b445924d26e134a90bcbd50 (patch) | |
tree | 14090e40b781d9469c794cb3ed4239115f89edac /sched/test/nadder.mj | |
parent | 7950298bf80fd1d1f311e7bd4f75b442df7c679c (diff) | |
download | SystDigit-Projet-94e88e887cf2ee4c6b445924d26e134a90bcbd50.tar.gz SystDigit-Projet-94e88e887cf2ee4c6b445924d26e134a90bcbd50.zip |
Reorganized folders.
Diffstat (limited to 'sched/test/nadder.mj')
-rw-r--r-- | sched/test/nadder.mj | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/sched/test/nadder.mj b/sched/test/nadder.mj deleted file mode 100644 index 0c95386..0000000 --- a/sched/test/nadder.mj +++ /dev/null @@ -1,19 +0,0 @@ -fulladder(a,b,c) = (s, r) where - s = (a ^ b) ^ c; - r = (a & b) + ((a ^ b) & c); -end where - -adder<n>(a:[n], b:[n], c_in) = (o:[n], c_out) where - if n = 0 then - o = []; - c_out = 0 - else - (s_n1, c_n1) = adder<n-1>(a[1..], b[1..], c_in); - (s_n, c_out) = fulladder(a[0], b[0], c_n1); - o = s_n . s_n1 - end if -end where - -main(a, b) = (o, c) where - (o, c) = adder<1>(a,b,0) -end where
\ No newline at end of file |