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

tasks a-s

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 23:57:08 -07:00
parent 47bf37c096
commit b83f433714
12433 changed files with 156208 additions and 123 deletions
Download patch file Download diff file Expand all files Collapse all files

15
Task/Binary-digits/Maxima/binary-digits.maxima Normal file
View file

@ -0,0 +1,15 @@
digits([arg]) := block(
[n: first(arg), b: if length(arg) > 1 then second(arg) else 10, v: [ ], q],
if n = 0 then [0] else (
while n # 0 do (
[n, q]: divide(n, b),
v: endcons(q, v)
),
v
)
)$
binary(n) := simplode(reverse(digits(9000, 2)))$
binary(9000);
"10001100101000"