Penholodigital squares: Difference between revisions
m
→{{header|J}}: remove the space/time pun and be explicit about the time
(Added Wren) |
m (→{{header|J}}: remove the space/time pun and be explicit about the time) |
||
Line 68:
hd=. ,:(#sq),&":' penholodigital squares in base ',":y
hd,(*#sq)#names (y brep sq),each '=',each(y brep %:sq),each<'²'
}}
stretch=: {{
sq=. penholod y
hd=. ,:(#sq),&":' penholodigital squares in base ',":y
hd,(*#sq)#names ({.,'...';{:) (y brep sq),each '=',each(y brep %:sq),each<'²'
}}</syntaxhighlight>
Line 96 ⟶ 102:
73b615a8294=285a44² 7b9284a5361=29a977² 83ab5479261=2a7617² 8617b35a294=2b0144² 93825a67b41=307381²
96528ab7314=310828² 9ab65823714=319488² 9b2573468a1=319a37²
0 penholodigital squares in base 13
160 penholodigital squares in base 14
126a84d79c53b=1129535²
db3962a7541c8=3a03226²
stretch 15
419 penholodigital squares in base 15
12378da5b6ec94=4240c58² ...
ed4c93285671ba=ee25e4a²
NB. this is getting to be obnoxiously long in terms of time...</syntaxhighlight>▼
▲ NB. this is getting to be obnoxiously long...</syntaxhighlight>
=={{header|Raku}}==
|