Data commit

Task/Attractive-numbers/BCPL/attractive-numbers.bcpl

@@ -0,0 +1,35 @@
+get "libhdr"
+manifest $( MAXIMUM = 120 $)
+
+let sieve(prime, max) be
+$(  for i=0 to max do i!prime := i>=2
+    for i=2 to max>>1 if i!prime
+    $(  let j = i<<1
+        while j <= max do
+        $(  j!prime := false
+            j := j+i
+        $)
+    $)
+$)
+
+let factors(n, prime, max) = valof
+$(  let count = 0
+    for i=2 to max if i!prime
+        until n rem i
+        $(  count := count + 1
+            n := n / i
+        $)
+    resultis count
+$)
+
+let start() be
+$(  let n = 0 and prime = vec MAXIMUM
+    sieve(prime, MAXIMUM)
+    for i=2 to MAXIMUM
+        if factors(i, prime, MAXIMUM)!prime
+        $(  writed(i, 4)
+            n := n + 1
+            unless n rem 18 do wrch('*N')
+        $)
+    wrch('*N')
+$)