8 lines
135 B
Plaintext
8 lines
135 B
Plaintext
# project euler 36
|
|
|
|
# check if palindromic in base 10 and 2
|
|
c ← ↧∩(≍⊸⇌) ⊃⊥₁₀⋯
|
|
⍤⤙≍ 1 c 585
|
|
|
|
/+⊚≡c⇡1e6
|