From 5ffe31607f267645fe1ffda5871258177648d0c1 Mon Sep 17 00:00:00 2001
From: Peter Mikkelsen <petermikkelsen10@gmail.com>
Date: Sat, 24 Apr 2021 18:01:08 +0200
Subject: Problem 12

---
 problem12.ijs | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 problem12.ijs

(limited to 'problem12.ijs')

diff --git a/problem12.ijs b/problem12.ijs
new file mode 100644
index 0000000..db7a9c0
--- /dev/null
+++ b/problem12.ijs
@@ -0,0 +1,7 @@
+triNum=: [: +/ 1 + i.
+
+factorCount=: [: */ 1 + _ q: ]
+
+nums=:triNum"0 (1+i.20000) NB. should be enough
+
+problem12=: nums {~ 1 i.~ (500<]);factorCount each nums
\ No newline at end of file
-- 
cgit v1.2.3