Penholodigital squares: Difference between revisions
Content added Content deleted
(→jq: Fix inefficiency) |
|||
Line 324: | Line 324: | ||
| ($sq | digits($base)) as $digits |
| ($sq | digits($base)) as $digits |
||
| if "0" | IN($digits[]) then . |
| if "0" | IN($digits[]) then . |
||
elif ($digits |
elif (($digits | length) == $base - 1) and (($digits | unique | length) == $base-1) |
||
then . + [[($n | convert(base)), ($sq | convert(base))]] |
then . + [[($n | convert(base)), ($sq | convert(base))]] |
||
else . |
else . |