Happy numbers: Difference between revisions

m
→‎{{header|Uiua}}: slightly nicer algorithm
(Added Uiua solution)
m (→‎{{header|Uiua}}: slightly nicer algorithm)
 
Line 7,297:
↙8⊚>0≡Happy⇡10000
 
# But iterative approach with short-cut is still much faster
NH ← |1 ⟨NH|∘⟩≠0Happy.+1 # Find next Happy number
⊙◌⍢(⟨◌|⊂:⟩>0.:⊙(⊃(Happy ⊢)(↘1)))(<8⧻.) []⇡10000
⇌[⍥(NH.) 7 1]
</syntaxhighlight>
 
73

edits