aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rwxr-xr-xchallenge-137/roger-bell-west/perl/ch-1.pl23
-rwxr-xr-xchallenge-137/roger-bell-west/perl/ch-2.pl25
-rw-r--r--challenge-137/roger-bell-west/postscript/ch-1.ps30
-rw-r--r--challenge-137/roger-bell-west/postscript/ch-2.ps40
-rwxr-xr-xchallenge-137/roger-bell-west/python/ch-1.py23
-rwxr-xr-xchallenge-137/roger-bell-west/python/ch-2.py30
-rwxr-xr-xchallenge-137/roger-bell-west/raku/ch-1.p622
-rwxr-xr-xchallenge-137/roger-bell-west/raku/ch-2.p624
-rwxr-xr-xchallenge-137/roger-bell-west/ruby/ch-1.rb26
-rwxr-xr-xchallenge-137/roger-bell-west/ruby/ch-2.rb38
-rwxr-xr-xchallenge-137/roger-bell-west/rust/ch-1.rs22
-rwxr-xr-xchallenge-137/roger-bell-west/rust/ch-2.rs37
12 files changed, 340 insertions, 0 deletions
diff --git a/challenge-137/roger-bell-west/perl/ch-1.pl b/challenge-137/roger-bell-west/perl/ch-1.pl
new file mode 100755
index 0000000000..53c04b283c
--- /dev/null
+++ b/challenge-137/roger-bell-west/perl/ch-1.pl
@@ -0,0 +1,23 @@
+#! /usr/bin/perl
+
+use strict;
+
+use Test::More tests => 1;
+
+is_deeply(longyear(),[1903, 1908, 1914, 1920, 1925,
+ 1931, 1936, 1942, 1948, 1953,
+ 1959, 1964, 1970, 1976, 1981,
+ 1987, 1992, 1998, 2004, 2009,
+ 2015, 2020, 2026, 2032, 2037,
+ 2043, 2048, 2054, 2060, 2065,
+ 2071, 2076, 2082, 2088, 2093,
+ 2099],'example 1');
+
+sub p {
+ my $y=shift;
+ return ($y+int($y/4)-int($y/100)+int($y/400))%7;
+}
+
+sub longyear {
+ return [grep {p($_-1)==3 || p($_)==4} (1900..2100)];
+}
diff --git a/challenge-137/roger-bell-west/perl/ch-2.pl b/challenge-137/roger-bell-west/perl/ch-2.pl
new file mode 100755
index 0000000000..0072d9e7f4
--- /dev/null
+++ b/challenge-137/roger-bell-west/perl/ch-2.pl
@@ -0,0 +1,25 @@
+#! /usr/bin/perl
+
+use strict;
+
+use Test::More tests => 4;
+
+is(lychrel(56),0,'example 1');
+is(lychrel(57),0,'example 2');
+is(lychrel(59),0,'example 3');
+is(lychrel(196),-1,'example 4');
+
+sub lychrel {
+ my $n=shift;
+ foreach (1..100) {
+ my $m=join('',reverse split '',$n);
+ if ($m==$n) {
+ return 0;
+ }
+ $n+=$m;
+ if ($n>=10000000) {
+ last;
+ }
+ }
+ return -1;
+}
diff --git a/challenge-137/roger-bell-west/postscript/ch-1.ps b/challenge-137/roger-bell-west/postscript/ch-1.ps
new file mode 100644
index 0000000000..56ae27ad72
--- /dev/null
+++ b/challenge-137/roger-bell-west/postscript/ch-1.ps
@@ -0,0 +1,30 @@
+%!PS
+
+/apush { % [a b] c -> [a b c]
+ /t exch def
+ [ exch aload pop t ]
+} bind def
+
+/p {
+ dup dup dup
+ 4 idiv 4 1 roll
+ 100 idiv neg 4 1 roll
+ 400 idiv
+ add add add
+ 7 mod
+} bind def
+
+/out 0 array def
+1900 1 2100 {
+ dup
+ dup p 4 eq
+ exch
+ 1 sub p 3 eq
+ or
+ {
+ out exch apush /out exch def
+ } {
+ pop
+ } ifelse
+} for
+out ==
diff --git a/challenge-137/roger-bell-west/postscript/ch-2.ps b/challenge-137/roger-bell-west/postscript/ch-2.ps
new file mode 100644
index 0000000000..2388059129
--- /dev/null
+++ b/challenge-137/roger-bell-west/postscript/ch-2.ps
@@ -0,0 +1,40 @@
+%!PS
+
+/i2s {
+ dup log cvi 1 add string cvs
+} bind def
+
+/reverse {
+ 2 dict begin
+ dup length dup /l exch def string /out exch def
+ {
+ /l l 1 sub def
+ out exch l exch put
+ } forall
+ out
+ end
+} bind def
+
+/lychrel {
+ /ret -1 def
+ 500 {
+ dup i2s reverse cvi
+ dup 2 index eq {
+ /ret 0 def
+ pop
+ exit
+ } if
+ add
+ dup 1e7 ge {
+ exit
+ } if
+ } repeat
+ pop
+ ret
+} bind def
+
+56 lychrel 0 eq { (Pass) } { (FAIL) } ifelse print ( ) print
+57 lychrel 0 eq { (Pass) } { (FAIL) } ifelse print ( ) print
+59 lychrel 0 eq { (Pass) } { (FAIL) } ifelse print ( ) print
+196 lychrel -1 eq { (Pass) } { (FAIL) } ifelse =
+
diff --git a/challenge-137/roger-bell-west/python/ch-1.py b/challenge-137/roger-bell-west/python/ch-1.py
new file mode 100755
index 0000000000..4ac0381e4e
--- /dev/null
+++ b/challenge-137/roger-bell-west/python/ch-1.py
@@ -0,0 +1,23 @@
+#! /usr/bin/python3
+
+import unittest
+
+def p(y):
+ return (y+int(y/4)-int(y/100)+int(y/400)) % 7
+
+def longyear():
+ return [y for y in range(1900,2100+1) if p(y-1)==3 or p(y)==4]
+
+class TestLongyear(unittest.TestCase):
+
+ def test_ex1(self):
+ self.assertEqual(longyear(),[1903, 1908, 1914, 1920, 1925,
+ 1931, 1936, 1942, 1948, 1953,
+ 1959, 1964, 1970, 1976, 1981,
+ 1987, 1992, 1998, 2004, 2009,
+ 2015, 2020, 2026, 2032, 2037,
+ 2043, 2048, 2054, 2060, 2065,
+ 2071, 2076, 2082, 2088, 2093,
+ 2099],'example 1')
+
+unittest.main()
diff --git a/challenge-137/roger-bell-west/python/ch-2.py b/challenge-137/roger-bell-west/python/ch-2.py
new file mode 100755
index 0000000000..ae9c2c921f
--- /dev/null
+++ b/challenge-137/roger-bell-west/python/ch-2.py
@@ -0,0 +1,30 @@
+#! /usr/bin/python3
+
+import unittest
+
+def lychrel(nn):
+ n=nn
+ for _ in range(100):
+ m=int(str(n)[::-1])
+ if m==n:
+ return 0
+ n+=m
+ if n>1e7:
+ break
+ return -1
+
+class TestLychrel(unittest.TestCase):
+
+ def test_ex1(self):
+ self.assertEqual(lychrel(56),0,'example 1')
+
+ def test_ex2(self):
+ self.assertEqual(lychrel(57),0,'example 2')
+
+ def test_ex3(self):
+ self.assertEqual(lychrel(58),0,'example 3')
+
+ def test_ex4(self):
+ self.assertEqual(lychrel(196),-1,'example 4')
+
+unittest.main()
diff --git a/challenge-137/roger-bell-west/raku/ch-1.p6 b/challenge-137/roger-bell-west/raku/ch-1.p6
new file mode 100755
index 0000000000..a6c2b659ea
--- /dev/null
+++ b/challenge-137/roger-bell-west/raku/ch-1.p6
@@ -0,0 +1,22 @@
+#! /usr/bin/perl6
+
+use Test;
+
+plan 1;
+
+is-deeply(longyear(),[1903, 1908, 1914, 1920, 1925,
+ 1931, 1936, 1942, 1948, 1953,
+ 1959, 1964, 1970, 1976, 1981,
+ 1987, 1992, 1998, 2004, 2009,
+ 2015, 2020, 2026, 2032, 2037,
+ 2043, 2048, 2054, 2060, 2065,
+ 2071, 2076, 2082, 2088, 2093,
+ 2099],'example 1');
+
+sub p($y) {
+ return ($y+floor($y/4)-floor($y/100)+floor($y/400))%7;
+}
+
+sub longyear {
+ return [grep {p($_-1)==3 || p($_)==4}, (1900..2100)];
+}
diff --git a/challenge-137/roger-bell-west/raku/ch-2.p6 b/challenge-137/roger-bell-west/raku/ch-2.p6
new file mode 100755
index 0000000000..a0a425ce7e
--- /dev/null
+++ b/challenge-137/roger-bell-west/raku/ch-2.p6
@@ -0,0 +1,24 @@
+#! /usr/bin/perl6
+
+use Test;
+plan 4;
+
+is(lychrel(56),0,'example 1');
+is(lychrel(57),0,'example 2');
+is(lychrel(59),0,'example 3');
+is(lychrel(196),-1,'example 4');
+
+sub lychrel($nn) {
+ my $n=$nn;
+ for (1..100) {
+ my $m=$n.comb.reverse.join('');
+ if ($m==$n) {
+ return 0;
+ }
+ $n+=$m;
+ if ($n>=10000000) {
+ last;
+ }
+ }
+ return -1;
+}
diff --git a/challenge-137/roger-bell-west/ruby/ch-1.rb b/challenge-137/roger-bell-west/ruby/ch-1.rb
new file mode 100755
index 0000000000..c095554e85
--- /dev/null
+++ b/challenge-137/roger-bell-west/ruby/ch-1.rb
@@ -0,0 +1,26 @@
+#! /usr/bin/ruby
+
+def p(y)
+ return (y+y.div(4)-y.div(100)+y.div(400)) % 7
+end
+
+def longyear()
+ return 1900.upto(2100).find_all {|y| p(y-1)==3 || p(y)==4}
+end
+
+require 'test/unit'
+
+class TestLongyear < Test::Unit::TestCase
+
+ def test_ex1
+ assert_equal([1903, 1908, 1914, 1920, 1925,
+ 1931, 1936, 1942, 1948, 1953,
+ 1959, 1964, 1970, 1976, 1981,
+ 1987, 1992, 1998, 2004, 2009,
+ 2015, 2020, 2026, 2032, 2037,
+ 2043, 2048, 2054, 2060, 2065,
+ 2071, 2076, 2082, 2088, 2093,
+ 2099],longyear())
+ end
+
+end
diff --git a/challenge-137/roger-bell-west/ruby/ch-2.rb b/challenge-137/roger-bell-west/ruby/ch-2.rb
new file mode 100755
index 0000000000..a9a359455b
--- /dev/null
+++ b/challenge-137/roger-bell-west/ruby/ch-2.rb
@@ -0,0 +1,38 @@
+#! /usr/bin/ruby
+
+def lychrel(nn)
+ n=nn
+ 1.upto(100) do
+ m=n.to_s.reverse.to_i
+ if m==n then
+ return 0
+ end
+ n+=m
+ if n>1e7 then
+ break
+ end
+ end
+ return -1
+end
+
+require 'test/unit'
+
+class TestLychrel < Test::Unit::TestCase
+
+ def test_ex1
+ assert_equal(0,lychrel(56))
+ end
+
+ def test_ex2
+ assert_equal(0,lychrel(57))
+ end
+
+ def test_ex3
+ assert_equal(0,lychrel(59))
+ end
+
+ def test_ex4
+ assert_equal(-1,lychrel(196))
+ end
+
+end
diff --git a/challenge-137/roger-bell-west/rust/ch-1.rs b/challenge-137/roger-bell-west/rust/ch-1.rs
new file mode 100755
index 0000000000..d2ee1d76cf
--- /dev/null
+++ b/challenge-137/roger-bell-west/rust/ch-1.rs
@@ -0,0 +1,22 @@
+#! /bin/sh
+//usr/bin/env rustc --test $0 -o ${0}x && ./${0}x; rm -f ${0}x ; exit
+
+#[test]
+fn test_ex1() {
+ assert_eq!(longyear(),vec![1903, 1908, 1914, 1920, 1925,
+ 1931, 1936, 1942, 1948, 1953,
+ 1959, 1964, 1970, 1976, 1981,
+ 1987, 1992, 1998, 2004, 2009,
+ 2015, 2020, 2026, 2032, 2037,
+ 2043, 2048, 2054, 2060, 2065,
+ 2071, 2076, 2082, 2088, 2093,
+ 2099]);
+}
+
+fn p(y: i32) -> i32 {
+ (y+y/4-y/100+y/400) % 7
+}
+
+fn longyear() -> Vec<i32> {
+ (1900..=2100).into_iter().filter(|y| p(*y-1)==3 || p(*y)==4).collect()
+}
diff --git a/challenge-137/roger-bell-west/rust/ch-2.rs b/challenge-137/roger-bell-west/rust/ch-2.rs
new file mode 100755
index 0000000000..8df1cd15bb
--- /dev/null
+++ b/challenge-137/roger-bell-west/rust/ch-2.rs
@@ -0,0 +1,37 @@
+#! /bin/sh
+//usr/bin/env rustc --test $0 -o ${0}x && ./${0}x; rm -f ${0}x ; exit
+
+#[test]
+fn test_ex1() {
+ assert_eq!(lychrel(56),0);
+}
+
+#[test]
+fn test_ex2() {
+ assert_eq!(lychrel(57),0);
+}
+
+#[test]
+fn test_ex3() {
+ assert_eq!(lychrel(59),0);
+}
+
+#[test]
+fn test_ex4() {
+ assert_eq!(lychrel(196),-1);
+}
+
+fn lychrel(nn: i32) -> i32 {
+ let mut n=nn;
+ for _ in 1..100 {
+ let m=n.to_string().chars().rev().collect::<String>().parse::<i32>().unwrap();
+ if m==n {
+ return 0;
+ }
+ n+=m;
+ if n > 10000000 {
+ break;
+ }
+ }
+ -1
+}
generated by cgit (git 2.34.1) at 2026-05-23 09:50:00 +0000