problem59.ijs


1
2
3
4
5
6
7
8
9
10
11
12

data =: ". fread 'p059_cipher.txt'
keysize =: 3
blocks =: |:((keysize%~#data),keysize) $ data
xor =: 22 b. NB. what???
chars =: 97+i.26 NB. Lowercase ASCII characters
solveBlock =: {{
	options =. |:chars xor"1 0 y
	key =. chars{~{:/:score"1 options
	key xor y
}}
score =: {{ y e. 32 46,chars }}
problem59 =: +/,solveBlock"1 blocks