langs a-z

Task/Arithmetic-Rational/OCaml/arithmetic-rational-1.ocaml

@@ -0,0 +1,14 @@
+#load "nums.cma";;
+open Num;;
+
+for candidate = 2 to 1 lsl 19 do
+  let sum = ref (num_of_int 1 // num_of_int candidate) in
+  for factor = 2 to truncate (sqrt (float candidate)) do
+    if candidate mod factor = 0 then
+      sum := !sum +/ num_of_int 1 // num_of_int factor
+                  +/ num_of_int 1 // num_of_int (candidate / factor)
+  done;
+  if is_integer_num !sum then
+    Printf.printf "Sum of recipr. factors of %d = %d exactly %s\n%!"
+        candidate (int_of_num !sum) (if int_of_num !sum = 1 then "perfect!" else "")
+done;;

Task/Arithmetic-Rational/OCaml/arithmetic-rational-2.ocaml

@@ -0,0 +1,11 @@
+let () =
+  for candidate = 2 to 1 lsl 19 do
+    let sum = ref Num.(1 / of_int candidate) in
+    for factor = 2 to truncate (sqrt (float candidate)) do
+      if candidate mod factor = 0 then
+        sum := Num.(!sum + 1 / of_int factor + of_int factor / of_int candidate)
+    done;
+    if Num.is_integer_num !sum then
+      Printf.printf "Sum of recipr. factors of %d = %d exactly %s\n%!"
+        candidate Num.(to_int !sum) (if Num.(!sum = 1) then "perfect!" else "")
+  done

Task/Arithmetic-Rational/PARI-GP/arithmetic-rational.pari

@@ -0,0 +1,5 @@
+for(n=2,1<<19,
+  s=0;
+  fordiv(n,d,s+=1/d);
+  if(s==2,print(n))
+)

Task/Arithmetic-Rational/Perl-6/arithmetic-rational-1.pl6

@@ -0,0 +1,11 @@
+for 2..2**19 -> $candidate {
+    my $sum = 1 / $candidate;
+    for 2 .. ceiling(sqrt($candidate)) -> $factor {
+        if $candidate %% $factor {
+            $sum += 1 / $factor + 1 / ($candidate / $factor);
+        }
+    }
+    if $sum.denominator == 1 {
+        say "Sum of reciprocal factors of $candidate = $sum exactly", ($sum == 1 ?? ", perfect!" !! ".");
+    }
+}

Task/Arithmetic-Rational/Perl-6/arithmetic-rational-2.pl6

@@ -0,0 +1 @@
+for 1.0, 1.1, 1.2 ... 10 { .say }

Task/Arithmetic-Rational/Slate/arithmetic-rational.slate

@@ -0,0 +1,4 @@
+54 / 7.
+20 reciprocal.
+(5 / 6) reciprocal.
+(5 / 6) as: Float.