From 233e5ef85e2372aca2b8147d73ff68109a0caf88 Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Tue, 28 Sep 2021 11:34:17 +0200 Subject: Problem 55 --- problem55.ijs | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 problem55.ijs (limited to 'problem55.ijs') diff --git a/problem55.ijs b/problem55.ijs new file mode 100644 index 0000000..912db70 --- /dev/null +++ b/problem55.ijs @@ -0,0 +1,15 @@ +digits =: 10&#.^:_1 +reverse =: |.&.digits +next =: reverse+] +palindrome =: reverse=] +isLychrel =: {{ + r =. 1 + for_i. i.50 do. + if. palindrome y =. next y do. + r =. 0 + break. + end. + end. + r +}} +countBelow =: {{ +/isLychrel"0 i.y}} -- cgit v1.2.3