RosettaCodeData/Task/Perfect-numbers/Uiua/perfect-numbers.uiua
2026-04-30 12:34:36 -04:00

2 lines
81 B
Text

IsPerfect ← =/+↘¯1⊸(▽⤚(=0◿)+1⊸⇡)
▽⊸≡IsPerfect↘1⇡10000