First perfect square in base n with n unique digits: Difference between revisions

→‎{{header|Quackery}}: added commentary, tweaked code
(Added Quackery.)
(→‎{{header|Quackery}}: added commentary, tweaked code)
Line 3,654:
 
=={{header|Quackery}}==
 
<code>from</code>, <code>index</code>, and <code>end</code> are defined at [[Loops/Increment loop index within loop body#Quackery]].
 
<syntaxhighlight lang="Quackery"> [ dup 1
Line 3,681 ⟶ 3,683:
pandigital if
[ index end ] ]
decimalbase share
say "Base " decimal echo
i^ 2 + echo
base release
say ": " dup echo
dupsay "^" 2 echo say " = "
saysquared "^2 = "echo
cr base release ]</syntaxhighlight>
squared echo cr
base release ]
</syntaxhighlight>
 
{{out}}
 
<pre>Base 2: 10^210 = 100
Base 3: 22^2 = 2101
Base 4: 33^2 = 3201
1,462

edits