From 19c160c1bf72cc3f2bc51af0eeea383d532ca04c Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Tue, 20 Apr 2021 23:39:20 +0200 Subject: Problem 8 --- problem8.ijs | 6 ++++++ 1 file changed, 6 insertions(+) create mode 100644 problem8.ijs diff --git a/problem8.ijs b/problem8.ijs new file mode 100644 index 0000000..6bba2c1 --- /dev/null +++ b/problem8.ijs @@ -0,0 +1,6 @@ +n=: '73167176531330624919225119674426574742355349194934969835203127745062623957831801698480186947885184385861560789112949495459501737958331952853208805511125406987471585238630507156932909632952274430435576689664895044524452316173185640309871112172238311362229893423380308135336276614282806444486645238749303589072962904915604407723907138105158593079608667017242712188399879790879227492190169972088809377665727333001053367881220235421809751254540594752243525849077116705560136048395864467063244157221553975369781797784617406495514929086256932197846862248283972241375657056057490261407972968652414535100474821663704844031998900088952434506585122758866688116427171479924442928230863465674813919123162824586178664583591245665294765456828489128831426076900422421902267105562632111110937054421750694165896040807198403850962455444362981230987879927244284909188845801561660979191338754992005240636899125607176060588611646710940507754100225698315520005593572972571636269561882670428252483600823257530420752963450' + +strs=. 13 <\ n +fn=. monad : '*/ ; ". each y' +products=. ; fn each strs +problem8=:{.\:~ products \ No newline at end of file -- cgit v1.2.3