From 63b4bd25181603f7bfb99e8607701c462519e1cd Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Tue, 20 Apr 2021 21:28:42 +0200 Subject: Problem 4 --- problem4.ijs | 4 ++++ 1 file changed, 4 insertions(+) create mode 100644 problem4.ijs diff --git a/problem4.ijs b/problem4.ijs new file mode 100644 index 0000000..93b27c9 --- /dev/null +++ b/problem4.ijs @@ -0,0 +1,4 @@ +ns=.100+i.900 NB. 3-digit numbers go from 100-999 +multsStrs=. ": each /:~ ~. ;ns*/ns +isPalindrome=. [: *./ |. = ] +problem4=: >_1{(;isPalindrome each multsStrs)#multsStrs -- cgit v1.2.3