aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--challenge-140/mark-anderson/raku/ch-1.raku13
-rw-r--r--challenge-140/mark-anderson/raku/ch-2.raku11
2 files changed, 0 insertions, 24 deletions
diff --git a/challenge-140/mark-anderson/raku/ch-1.raku b/challenge-140/mark-anderson/raku/ch-1.raku
deleted file mode 100644
index f723af6bb9..0000000000
--- a/challenge-140/mark-anderson/raku/ch-1.raku
+++ /dev/null
@@ -1,13 +0,0 @@
-#!/usr/bin/env raku
-
-# DCB = Decimal Coded Binary
-subset DCB of UInt where /^ <[01]>+ $/;
-
-sub infix:<b+>(DCB \a, DCB \b)
-{
- (a.Str.parse-base(2) + b.Str.parse-base(2)).base(2);
-}
-
-say 11 b+ 1;
-say 101 b+ 1;
-say 100 b+ 11;
diff --git a/challenge-140/mark-anderson/raku/ch-2.raku b/challenge-140/mark-anderson/raku/ch-2.raku
deleted file mode 100644
index 4cc7094b29..0000000000
--- a/challenge-140/mark-anderson/raku/ch-2.raku
+++ /dev/null
@@ -1,11 +0,0 @@
-#!/usr/bin/env raku
-
-say kth-element-from-sorted-multiplication-table(2, 3, 4);
-say kth-element-from-sorted-multiplication-table(3, 3, 6);
-
-sub kth-element-from-sorted-multiplication-table(\i, \j, \k)
-{
- my @table;
- @table[.head; .tail] = .head.succ * .tail.succ for ^i X ^j;
- @table.map(|*).sort.[k-1];
-}