problem55.ijs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

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}}