Jump to content

Truncatable primes: Difference between revisions

Truncatable primes (view source)

Revision as of 10:13, 20 February 2021

816 bytes removed ,  3 years ago
obsolete
m (Regularize non-standard header markup)
(obsolete)
Line 170:
Press Enter
</pre>
 
=={{header|Arturo}}==
 
<lang arturo>leftTrunc: @(num){
str: toString num
ret: #()
loop [range 0 [size str]-1] @(x){
ret: ret + [slice str x [size str]]
}
return [map ret => toNumber]
}
 
rightTrunc: @(num){
str: toString num
ret: #()
loop [size str]..1 @(x){
ret: ret + [slice str 0 x]
}
return [map ret => toNumber]
}
 
isTruncatablePrime: @(nums)-> all nums => isPrime
 
MaxLeft: 0
MaxRight: 0
 
loop [rangeBy 3 1000000 2] @(n){
if [isTruncatablePrime [leftTrunc n]] -> MaxLeft: n
if [isTruncatablePrime [rightTrunc n]] -> MaxRight: n
}
 
print "Max Left-Truncatable Prime found (<1000000): " + MaxLeft
print "Max Right-Truncatable Prime found (<1000000): " + MaxRight</lang>
 
{{out}}
 
<pre>Max Left-Truncatable Prime found (<1000000): 998443
Max Right-Truncatable Prime found (<1000000): 739399</pre>
 
=={{header|AutoHotkey}}==
Drkameleon
1,532

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/157027"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information