Sum of square and cube digits of an integer are primes: Difference between revisions

Content added Content deleted
(Add J)
(Add BQN)
Line 45: Line 45:
{{out}}
{{out}}
<pre>16 17 25 28 34 37 47 52 64</pre>
<pre>16 17 25 28 34 37 47 52 64</pre>

=={{header|BQN}}==
<lang bqn># 'Library' functions from BQNCrate
Digits ← 10 {βŒ½π•—|βŒŠβˆ˜Γ·βŸœπ•—βŸ(↕1+Β·βŒŠπ•—β‹†βΌ1⌈⊒)}
Prime ← 2=Β·+Β΄0=(1+↕)⊸|

(βˆ§Λβˆ˜β‰βˆ˜((Prime +´∘Digits)Β¨β‹†βŒœβŸœ2β€Ώ3))⊸/↕100</lang>
{{out}}
<pre>⟨ 16 17 25 28 34 37 47 52 64 ⟩</pre>


=={{header|F_Sharp|F#}}==
=={{header|F_Sharp|F#}}==