Largest proper divisor of n: Difference between revisions

Content added Content deleted
(Add BQN)
(→‎{{header|BQN}}: Set minimum result of 1 instead of special-casing argument 1)
Line 495: Line 495:


=={{header|BQN}}==
=={{header|BQN}}==
<lang bqn>∘‿10⥊((1≥⊢)◶(⌈´↕×0=↕|⊢)‿⊣)¨1+↕100</lang>
<lang bqn>(1⌈´↕×0=↕|⊢)¨ ∘‿10⥊1+↕100</lang>
{{out}}
{{out}}
<pre>┌─
<pre>┌─
Retrieved from "https://rosettacode.org/wiki/Largest_proper_divisor_of_n"