aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Just another update

Browse source
This commit is contained in:
Ingy döt Net 2015-02-20 00:35:01 -05:00
parent a25938f123
commit 00a190b0a6
6591 changed files with 94363 additions and 23227 deletions
Download patch file Download diff file Expand all files Collapse all files

41
Task/Four-bit-adder/REXX/four-bit-adder.rexx
View file

@ -1,35 +1,30 @@
/*REXX program shows (all) the sums of a full 4-bit adder (with carry).*/
call hdr1; call hdr2
do j=0 for 16
/*REXX program shows (all) the sums of a full 4─bit adder (with carry).*/
call hdr1; call hdr2 /*note order of headers (& below)*/
/* [↓] traipse all possibilities*/
do j=0 for 16
do m=0 for 4; a.m=bit(j,m); end
do k=0 for 16
do m=0 for 4; b.m=bit(k,m); end
sc=4bitAdder(a.,b.)
sc=4bitAdder(a., b.)
z=a.3 a.2 a.1 a.0 '_+_' b.3 b.2 b.1 b.0 '_=_' sc ',' s.3 s.2 s.1 s.0
say translate(space(z,0),,'_')
say translate(space(z,0),,'_') /*remove all underbars (_) from Z*/
end /*k*/
end /*j*/
call hdr2; call hdr1
call hdr2; call hdr1 /*display 2 headers (note order).*/
exit /*stick a fork in it, we're done.*/
/*──────────────────────────────────subroutines/functions───────────────*/
hdr1: say 'aaaa + bbbb = c, sum [c=carry]'; return
hdr2: say '════ ════ ══════' ; return
/*──────────────────────────────────one─line subroutines────────────────*/
bit: procedure; arg x,y; return substr(reverse(x2b(d2x(x))),y+1,1)
/*──────────────────────────────────HALFADDER subroutine-───────────────*/
halfAdder: procedure expose c; parse arg x,y; c=x & y; return x && y
/*──────────────────────────────────FULLADDER subroutine-───────────────*/
halfAdder: procedure expose c; parse arg x,y; c=x & y; return x && y
hdr1: say 'aaaa + bbbb = c, sum [c=carry]'; return
hdr2: say '════ ════ ══════' ; return
/*──────────────────────────────────FULLADDER subroutine────────────────*/
fullAdder: procedure expose c; parse arg x,y,fc
_1=halfAdder(fc,x); c1=c
_2=halfAdder(_1,y); c=c | c1; return _2
/*──────────────────────────────────3BITADDER subroutine-───────────────*/
_1 = halfAdder(fc,x); c1=c
_2 = halfAdder(_1,y); c=c | c1; return _2
/*──────────────────────────────────4BITADDER subroutine────────────────*/
4bitAdder: procedure expose s. a. b.; carry.=0
do j=0 for 4; n=j-1
s.j=fullAdder(a.j, b.j, carry.n); carry.j=c
end /*j*/
do j=0 for 4; n=j-1
s.j=fullAdder(a.j, b.j, carry.n); carry.j=c
end /*j*/
return c