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 | unique | length) == $base-1 and ($digits | sort | length) == $base - 1
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 .