Smith numbers: Difference between revisions
Added Uiua solution
(Added Uiua solution) |
|||
Line 5,217:
...9760 9778 9840 9843 9849 9861 9880 9895 9924 9942 9968 9975 9985
(376 total)</pre>
=={{header|Uiua}}==
{{Works with|Uiua|0.12.0-dev.1}}
[https://www.uiua.org/pad?src=0_12_0-dev_1__TiDihpAgMTAwMDAKUHJpbWVzIOKGkCDih4zil4zijaIo4oqDKOKWveKJoDDil7_iiqIuLnziioLiiqIpfD4w4qe7KeKKmVtd4oaYMuKHoU4KQ2FuZGlkYXRlcyDihpAg4pa9wqziiIo6UHJpbWVzLuKGmDLih6EgIyBFeGNsdWRlIHByaW1lcwpTdW1EIOKGkCAvK-KJoeKLlcKw4ouVClByaW1lRGl2aXNvcnMg4oaQIOKXjOKXjOKNoijin5wow7cvw5cp4p-cKOKKmeKKgjop4pa9OuKfnCg9MOKXvyniipkufOKLhSg-MSkpUHJpbWVzIOKKmVtdClNtaXRoIOKGkCDilr3iirjiiaEoPeKKgyhTdW1EfC8r4omhU3VtRCBQcmltZURpdmlzb3JzKSkK4p-c4qe7IFNtaXRoIENhbmRpZGF0ZXMgTgo= Run it in Uiua Pad!]
<syntaxhighlight lang="uiua">
N ← 10000
Primes ← ⇌◌⍢(⊃(▽≠0◿⊢..|⊂⊢)|>0⧻)⊙[]↘2⇡N
Candidates ← ▽¬∊:Primes.↘2⇡ # Exclude primes
SumD ← /+≡⋕°⋕
PrimeDivisors ← ◌◌⍢(⟜(÷/×)⟜(⊙⊂:)▽:⟜(=0◿)⊙.|⋅(>1))Primes ⊙[]
Smith ← ▽⊸≡(=⊃(SumD|/+≡SumD PrimeDivisors))
⟜⧻ Smith Candidates N
</syntaxhighlight>
{{out}}
<pre>
376
[4 22 27 58 85 94 121 166 202 265 ...etc... 9942 9968 9975 9985]
</pre>
=={{header|V (Vlang)}}==
| |||