problem4.ijs


1
2
3
4

ns=.100+i.900 NB. 3-digit numbers go from 100-999
multsStrs=. ": each /:~ ~. ;ns*/ns
isPalindrome=. [: *./ |. = ]
problem4=: >_1{(;isPalindrome each multsStrs)#multsStrs