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

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

37
Task/Mayan-numerals/Julia/mayan-numerals-1.julia Normal file
View file

@ -0,0 +1,37 @@
using Gumbo
mayan_glyphs(x, y) = (x == 0 && y == 0) ? "\n<td>Θ</td>\n" : "<td>\n" * "●" ^ x * "<br />\n───" ^ y * "</td>\n"
inttomayan(n) = (s = string(n, base=20); map(ch -> reverse(divrem(parse(Int, ch, base=20), 5)), split(s, "")))
function testmayan()
startstring = """\n
<style>
table.roundedcorners {
border: 1px solid DarkOrange;
border-radius: 13px;
border-spacing: 1;
}
table.roundedcorners td,
table.roundedcorners th {
border: 2px solid DarkOrange;
border-radius: 13px;
border-bottom: 3px solid DarkOrange;
vertical-align: bottom;
text-align: center;
padding: 10px;
}
</style>
\n"""
txt = startstring
for n in [4005, 8017, 326205, 886205, 70913241, 2147483647]
txt *= "<h3>The Mayan representation for the integer $n is: </h3><table class=\"roundedcorners\"><tr>" *
join(map(x -> mayan_glyphs(x[1], x[2]), inttomayan(n))) * "</tr></table>\n\n"
end
println(parsehtml(txt))
end
testmayan()

18
Task/Mayan-numerals/Julia/mayan-numerals-2.julia Normal file
View file

@ -0,0 +1,18 @@
mayan_glyphs(x, y) = (x == 0 && y == 0) ? "\n| style=$tdconfig | Θ" : "\n| style=$tdconfig | " * "●" ^ x * "<br>───" ^ y
inttomayan(n) = (s = string(n, base=20); map(ch -> reverse(divrem(parse(Int, ch, base=20), 5)), split(s, "")))
tableconfig = raw""" " border: 1px solid DarkOrange; border-radius: 13px; border-spacing: 1; " """
tdconfig = raw""" "border: 2px solid DarkOrange; border-radius: 13px; border-bottom: 2px solid DarkOrange; vertical-align: bottom; text-align: center; padding: 10px;" """
function testmayan()
txt = ""
for n in [4005, 8017, 326205, 886205, 70913241, 2147483647]
txt *= "\n'''The Mayan representation for the integer $n is:'''\n" *
"{| style=$tableconfig \n|- " *
join(map(x -> mayan_glyphs(x[1], x[2]), inttomayan(n))) * "\n|}\n\n"
end
println(txt)
end
testmayan()