diff options
43 files changed, 3364 insertions, 5 deletions
diff --git a/challenge-133/abigail/blog.txt b/challenge-133/abigail/blog.txt index db2d358210..347f6c08d1 100644 --- a/challenge-133/abigail/blog.txt +++ b/challenge-133/abigail/blog.txt @@ -1 +1 @@ -https://abigail.github.io/HTML/Perl-Weekly-Challenge/week-133-1.html +https://abigail.github.io/HTML/Perl-Weekly-Challenge/week-137-1.html diff --git a/challenge-133/abigail/blog1.txt b/challenge-133/abigail/blog1.txt index d67cf83760..543d11bcea 100644 --- a/challenge-133/abigail/blog1.txt +++ b/challenge-133/abigail/blog1.txt @@ -1 +1 @@ -https://abigail.github.io/HTML/Perl-Weekly-Challenge/week-133-2.html +https://abigail.github.io/HTML/Perl-Weekly-Challenge/week-137-2.html diff --git a/challenge-137/abigail/README.md b/challenge-137/abigail/README.md index b1b1f2b0ef..6af7507c57 100644 --- a/challenge-137/abigail/README.md +++ b/challenge-137/abigail/README.md @@ -6,12 +6,17 @@ * [Bash](bash/ch-1.sh) * [Bc](bc/ch-1.bc) * [C](c/ch-1.c) +* [Erlang](c/ch-1.erl) * [Go](go/ch-1.go) * [Java](java/ch-1.java) * [Lua](lua/ch-1.lua) -* [Node.js](node/ch-1.js) +* Node.js + * [Using look-up](node/ch-1.js) + * [Using Doomsday values](node/ch-1a.js) * [Pascal](pascal/ch-1.p) -* [Perl](perl/ch-1.pl) +* Perl + * [Using look-up](perl/ch-1.pl) + * [Using Doomsday values](perl/ch-1a.pl) * [Python](python/ch-1.py) * [R](r/ch-1.r) * [Ruby](ruby/ch-1.rb) @@ -21,7 +26,7 @@ ## Part 2 * [AWK](awk/ch-2.awk) -* [Bash](bash/ch-1.sh) +* [Bash](bash/ch-2.sh) * [Bc](bc/ch-2.bc) * [C](c/ch-2.c) * [Go](go/ch-2.go) diff --git a/challenge-137/abigail/awk/ch-1.awk b/challenge-137/abigail/awk/ch-1.awk new file mode 100644 index 0000000000..f0d29a5887 --- /dev/null +++ b/challenge-137/abigail/awk/ch-1.awk @@ -0,0 +1,38 @@ +#!/usr/bin/awk + +# +# See ../README.md +# + +# +# Run as: awk -f ch-1.awk +# + +BEGIN { + m = split ("1600 2000", start_years) + n = split ("004 009 015 020 026 " \ + "032 037 043 048 054 " \ + "060 065 071 076 082 " \ + "088 093 099 " \ + " 105 111 116 122 " \ + "128 133 139 144 150 " \ + "156 161 167 172 178 " \ + "184 189 195 " \ + " 201 207 212 218 " \ + "224 229 235 240 246 " \ + "252 257 263 268 274 " \ + "280 285 291 296 " \ + " 303 308 314 " \ + "320 325 331 336 342 " \ + "348 353 359 364 370 " \ + "376 381 387 392 398", long_year_offsets) + + for (j = 1; j <= m; j ++) { + for (i = 1; i <= n; i ++) { + year = start_years [j] + long_year_offsets [i] + if (1900 <= year && year <= 2100) { + print year + } + } + } +} diff --git a/challenge-137/abigail/awk/ch-2.awk b/challenge-137/abigail/awk/ch-2.awk new file mode 100644 index 0000000000..281b28dc55 --- /dev/null +++ b/challenge-137/abigail/awk/ch-2.awk @@ -0,0 +1,23 @@ +#!/usr/bin/awk + +# +# See ../README.md +# + +# +# Run as: awk -f ch-2.awk < input-file +# + +function reverse (str) { + x = "" + for (i = length (str); i != 0; i --) { + x = x substr (str, i, 1) + } + return x +} + +function ly (n) { + return n >= 10000000 ? 1 : n == reverse(n) ? 0 : ly(n + reverse(n)) +} + +{print ly($1)} diff --git a/challenge-137/abigail/bash/ch-1.sh b/challenge-137/abigail/bash/ch-1.sh new file mode 100644 index 0000000000..667fa0a54d --- /dev/null +++ b/challenge-137/abigail/bash/ch-1.sh @@ -0,0 +1,35 @@ +#!/bin/sh + +# +# See ../README.md +# + +# +# Run as: bash ch-1.sh +# + +set -f + +start_years=(1600 2000) +m=${#start_years[@]} + +long_year_offsets=( 4 9 15 20 26 32 37 43 48 54 \ + 60 65 71 76 82 88 93 99 \ + 105 111 116 122 128 133 139 144 150 \ + 156 161 167 172 178 184 189 195 \ + 201 207 212 218 224 229 235 240 246 \ + 252 257 263 268 274 280 285 291 296 \ + 303 308 314 320 325 331 336 342 \ + 348 353 359 364 370 376 381 387 392 398) +n=${#long_year_offsets[@]} + + +for ((j = 0; j < m; j ++)) +do for ((i = 0; i < n; i ++)) + do year=$((${start_years[$j]} + ${long_year_offsets[$i]})) + if ((1900 <= year && year <= 2100)) + then echo $year + fi + done +done + diff --git a/challenge-137/abigail/bash/ch-2.sh b/challenge-137/abigail/bash/ch-2.sh new file mode 100644 index 0000000000..6776acf025 --- /dev/null +++ b/challenge-137/abigail/bash/ch-2.sh @@ -0,0 +1,39 @@ +#!/bin/sh + +# +# See ../README.md +# + +# +# Run as: bash ch-2.sh < input-file +# + +set -f +shopt -s extglob + +function reverse () { + local str=$1 + local len=${#str} + local rev="" + for ((i = len - 1; i >= 0; i --)) + do rev=$rev${str:$i:1} + done + reverse=$rev +} + +function ly () { + local n=$1 + reverse $n + local rev=${reverse/#+(0)/} + if ((n >= 10000000)) + then ly=1 + elif [[ $n = $rev ]] + then ly=0 + else ly $((n + rev)) + fi +} + +while read number +do ly $number + echo $ly +done diff --git a/challenge-137/abigail/bc/ch-1.bc b/challenge-137/abigail/bc/ch-1.bc new file mode 100644 index 0000000000..5ca2539d46 --- /dev/null +++ b/challenge-137/abigail/bc/ch-1.bc @@ -0,0 +1,93 @@ +# +# See ../README.md +# + +# +# Run as: bc ch-1.bc +# + +s [ 0] = 1600 +s [ 1] = 2000 + +o [ 0] = 4 +o [ 1] = 9 +o [ 2] = 15 +o [ 3] = 20 +o [ 4] = 26 +o [ 5] = 32 +o [ 6] = 37 +o [ 7] = 43 +o [ 8] = 48 +o [ 9] = 54 +o [10] = 60 +o [11] = 65 +o [12] = 71 +o [13] = 76 +o [14] = 82 +o [15] = 88 +o [16] = 93 +o [17] = 99 +o [18] = 105 +o [19] = 111 +o [20] = 116 +o [21] = 122 +o [22] = 128 +o [23] = 133 +o [24] = 139 +o [25] = 144 +o [26] = 150 +o [27] = 156 +o [28] = 161 +o [29] = 167 +o [30] = 172 +o [31] = 178 +o [32] = 184 +o [33] = 189 +o [34] = 195 +o [35] = 201 +o [36] = 207 +o [37] = 212 +o [38] = 218 +o [39] = 224 +o [40] = 229 +o [41] = 235 +o [42] = 240 +o [43] = 246 +o [44] = 252 +o [45] = 257 +o [46] = 263 +o [47] = 268 +o [48] = 274 +o [49] = 280 +o [50] = 285 +o [51] = 291 +o [52] = 296 +o [53] = 303 +o [54] = 308 +o [55] = 314 +o [56] = 320 +o [57] = 325 +o [58] = 331 +o [59] = 336 +o [60] = 342 +o [61] = 348 +o [62] = 353 +o [63] = 359 +o [64] = 364 +o [65] = 370 +o [66] = 376 +o [67] = 381 +o [68] = 387 +o [69] = 392 +o [70] = 398 + +for (i = 0; i < 2; i ++) { + for (j = 0; j < 71; j ++) { + y = s [i] + o [j] + if (1900 <= y && y <= 2100) { + y + } + } +} + +quit diff --git a/challenge-137/abigail/bc/ch-2.bc b/challenge-137/abigail/bc/ch-2.bc new file mode 100644 index 0000000000..b0502d8f7a --- /dev/null +++ b/challenge-137/abigail/bc/ch-2.bc @@ -0,0 +1,32 @@ +# +# See ../README.md +# + +# +# Run as: bc ch-2.bc < input-file +# + +define r (n) { + v = 0 + while (n > 0) { + v *= 10 + v += n % 10 + n /= 10 + } + return (v) +} + + +define l (n) { + if (n >= 10000000) {return (1)} + if (n == r (n)) {return (0)} + return l (n + r (n)) +} + +while (1) { + n = read () + if (n == 0) {break} + l (n) +} + +quit diff --git a/challenge-137/abigail/c/ch-1.c b/challenge-137/abigail/c/ch-1.c new file mode 100644 index 0000000000..356b19321d --- /dev/null +++ b/challenge-137/abigail/c/ch-1.c @@ -0,0 +1,42 @@ +# include <stdlib.h> +# include <stdio.h> +# include <string.h> + +/* + * See ../README.md + */ + +/* + * Run as: cc -o ch-1.o ch-1.c; ./ch-1.o + */ + +short start_years [] = {1600, 2000}; +short long_year_offsets [] = { + 4, 9, 15, 20, 26, + 32, 37, 43, 48, 54, + 60, 65, 71, 76, 82, + 88, 93, 99, + 105, 111, 116, 122, + 128, 133, 139, 144, 150, + 156, 161, 167, 172, 178, + 184, 189, 195, + 201, 207, 212, 218, + 224, 229, 235, 240, 246, + 252, 257, 263, 268, 274, + 280, 285, 291, 296, + 303, 308, 314, + 320, 325, 331, 336, 342, + 348, 353, 359, 364, 370, + 376, 381, 387, 392, 398 +}; + +int main (void) { + for (size_t i = 0; i < 2; i ++) { + for (size_t j = 0; j < 71; j ++) { + short year = start_years [i] + long_year_offsets [j]; + if (1900 <= year && year <= 2100) { + printf ("%d\n", year); + } + } + } +} diff --git a/challenge-137/abigail/c/ch-2.c b/challenge-137/abigail/c/ch-2.c new file mode 100644 index 0000000000..14f3efecf3 --- /dev/null +++ b/challenge-137/abigail/c/ch-2.c @@ -0,0 +1,37 @@ +# include <stdlib.h> +# include <stdio.h> +# include <string.h> + +/* + * See ../README.md + */ + +/* + * Run as: cc -o ch-2.o ch-2.c; ./ch-2.o < input-file + */ + +long reverse (long number) { + long reverse = 0; + while (number > 0) { + reverse *= 10; + reverse += number % 10; + number /= 10; + } + return reverse; +} + +short ly (long n) { + return n >= 10000000 ? 1 + : n == reverse (n) ? 0 + : ly (n + reverse (n)); +} + +int main (void) { + long n; + + while (scanf ("%ld", &n) == 1) { + printf ("%d\n", ly (n)); + } + + return (0); +} diff --git a/challenge-137/abigail/erlang/ch-1.erl b/challenge-137/abigail/erlang/ch-1.erl new file mode 100644 index 0000000000..dd612e4d0d --- /dev/null +++ b/challenge-137/abigail/erlang/ch-1.erl @@ -0,0 +1,41 @@ +% +% See ../README.md +% + +% +% Run as: ln ch-1.erl ch1.erl +% erl -compile ch1 +% erl -noshell -s ch1 main -s init stop +% + +-module (ch1). +-export ([main/0]). + + +long_year ([], _) -> ok; +long_year (_, []) -> ok; + +long_year ([Start], [Offset | Offsets]) -> + Year = Start + Offset, + if (1900 =< Year) and (Year =< 2100) -> io:fwrite ("~B~n", [Year]); + true -> ok + end, + long_year ([Start], Offsets); + +long_year ([Start | Starts], Offsets) -> + long_year ([Start], Offsets), + long_year (Starts, Offsets). + +main () -> + Start_years = [1600, 2000], + Long_year_offsets = [ + 4, 9, 15, 20, 26, 32, 37, 43, 48, 54, + 60, 65, 71, 76, 82, 88, 93, 99, + 105, 111, 116, 122, 128, 133, 139, 144, 150, + 156, 161, 167, 172, 178, 184, 189, 195, + 201, 207, 212, 218, 224, 229, 235, 240, 246, + 252, 257, 263, 268, 274, 280, 285, 291, 296, + 303, 308, 314, 320, 325, 331, 336, 342, + 348, 353, 359, 364, 370, 376, 381, 387, 392, 398 + ], + long_year (Start_years, Long_year_offsets). diff --git a/challenge-137/abigail/go/ch-1.go b/challenge-137/abigail/go/ch-1.go new file mode 100644 index 0000000000..2e6c515d0d --- /dev/null +++ b/challenge-137/abigail/go/ch-1.go @@ -0,0 +1,44 @@ +package main + +// +// See ../README.md +// + +// +// Run as: go run ch-1.go +// + +import ( + "fmt" +) + +func main () { + start_years := [] int {1600, 2000} + long_year_offsets := [] int { + 4, 9, 15, 20, 26, + 32, 37, 43, 48, 54, + 60, 65, 71, 76, 82, + 88, 93, 99, + 105, 111, 116, 122, + 128, 133, 139, 144, 150, + 156, 161, 167, 172, 178, + 184, 189, 195, + 201, 207, 212, 218, + 224, 229, 235, 240, 246, + 252, 257, 263, 268, 274, + 280, 285, 291, 296, + 303, 308, 314, + 320, 325, 331, 336, 342, + 348, 353, 359, 364, 370, + 376, 381, 387, 392, 398, + } + + for _, start_year := range start_years { + for _, offset := range long_year_offsets { + year := start_year + offset + if 1900 <= year && year <= 2100 { + fmt . Println (year) + } + } + } +} diff --git a/challenge-137/abigail/go/ch-2.go b/challenge-137/abigail/go/ch-2.go new file mode 100644 index 0000000000..31815d21aa --- /dev/null +++ b/challenge-137/abigail/go/ch-2.go @@ -0,0 +1,40 @@ +package main + +// +// See ../README.md +// + +// +// Run as: go run ch-2.go < input-file +// + +import ( + "fmt" +) + +func reverse (num int) int { + rev := 0 + for num > 0 { + rev *= 10 + rev += num % 10 + num /= 10 + } + return rev +} + +func ly (n int) int { + if n >= 10000000 {return 1} + if n == reverse (n) {return 0} + return ly (n + reverse (n)) +} + +func main () { + for { + var num int + n, err := fmt . Scanf ("%d", &num) + if n != 1 || err != nil { + break + } + fmt . Println (ly (num)) + } +} diff --git a/challenge-137/abigail/java/ch-1.java b/challenge-137/abigail/java/ch-1.java new file mode 100644 index 0000000000..f15167da39 --- /dev/null +++ b/challenge-137/abigail/java/ch-1.java @@ -0,0 +1,42 @@ +// +// See ../README.md +// + +// +// Run as: ln ch-1.java ch1.java; javac ch1.java; java ch1 +// + +import java.util.*; + +public class ch1 { + static int [] start_years = {1600, 2000}; + static int [] long_year_offsets = { + 4, 9, 15, 20, 26, + 32, 37, 43, 48, 54, + 60, 65, 71, 76, 82, + 88, 93, 99, + 105, 111, 116, 122, + 128, 133, 139, 144, 150, + 156, 161, 167, 172, 178, + 184, 189, 195, + 201, 207, 212, 218, + 224, 229, 235, 240, 246, + 252, 257, 263, 268, 274, + 280, 285, 291, 296, + 303, 308, 314, + 320, 325, 331, 336, 342, + 348, 353, 359, 364, 370, + 376, 381, 387, 392, 398, + }; + + public static void main (String [] args) { + for (int start_year: start_years) { + for (int offset: long_year_offsets) { + int year = start_year + offset; + if (1900 <= year && year <= 2100) { + System . out . println (year); + } + } + } + } +} diff --git a/challenge-137/abigail/java/ch-2.java b/challenge-137/abigail/java/ch-2.java new file mode 100644 index 0000000000..20b8034d2b --- /dev/null +++ b/challenge-137/abigail/java/ch-2.java @@ -0,0 +1,34 @@ +// +// See ../README.md +// + +// +// Run as: ln ch-2.java ch2.java; javac ch2.java; java ch2 < input-file +// + +import java.util.*; + +public class ch2 { + static int reverse (int num) { + int rev = 0; + while (num > 0) { + rev *= 10; + rev += num % 10; + num /= 10; + } + return (rev); + } + + static int ly (int n) { + return n >= 10000000 ? 1 + : n == reverse (n) ? 0 + : ly (n + reverse (n)); + } + + public static void main (String [] args) { + Scanner scanner = new Scanner (System . in); + while (scanner . hasNextInt ()) { + System . out . println (ly (scanner . nextInt ())); + } + } +} diff --git a/challenge-137/abigail/lua/ch-1.lua b/challenge-137/abigail/lua/ch-1.lua new file mode 100644 index 0000000000..9f85c39fb4 --- /dev/null +++ b/challenge-137/abigail/lua/ch-1.lua @@ -0,0 +1,38 @@ +#!/opt/local/bin/lua + +-- +-- See ../README.md +-- + +-- +-- Run as: lua ch-1.lua +-- + +local start_years = {1600, 2000} +local long_year_offsets = { + 4, 9, 15, 20, 26, + 32, 37, 43, 48, 54, + 60, 65, 71, 76, 82, + 88, 93, 99, + 105, 111, 116, 122, + 128, 133, 139, 144, 150, + 156, 161, 167, 172, 178, + 184, 189, 195, + 201, 207, 212, 218, + 224, 229, 235, 240, 246, + 252, 257, 263, 268, 274, + 280, 285, 291, 296, + 303, 308, 314, + 320, 325, 331, 336, 342, + 348, 353, 359, 364, 370, + 376, 381, 387, 392, 398 +} + +for i = 1, #start_years do + for j = 1, #long_year_offsets do + local year = start_years [i] + long_year_offsets [j] + if 1900 <= year and year <= 2100 then + print (year) + end + end +end diff --git a/challenge-137/abigail/lua/ch-2.lua b/challenge-137/abigail/lua/ch-2.lua new file mode 100644 index 0000000000..1cfb4f84e9 --- /dev/null +++ b/challenge-137/abigail/lua/ch-2.lua @@ -0,0 +1,34 @@ +#!/opt/local/bin/lua + +-- +-- See ../README.md +-- + +-- +-- Run as: lua ch-2.lua < input-file +-- + +function reverse (num) + local rev = 0 + while num > 0 do + rev = rev * 10 + rev = rev + (num % 10) + num = math . floor (num / 10) + end + return (rev) +end + + +function ly (n) + if n >= 10000000 + then return (1) + elseif n == reverse (n) + then return (0) + else return (ly (n + reverse (n))) + end +end + + +for number in io . lines () do + print (ly (tonumber (number))) +end diff --git a/challenge-137/abigail/node/ch-1.js b/challenge-137/abigail/node/ch-1.js new file mode 100644 index 0000000000..a744551341 --- /dev/null +++ b/challenge-137/abigail/node/ch-1.js @@ -0,0 +1,40 @@ +#!/usr/local/bin/node + +// +// See ../README.md +// + +// +// Run as: node ch-1.js +// + + +let start_years = [1600, 2000] +let long_year_offsets = [ + 4, 9, 15, 20, 26, + 32, 37, 43, 48, 54, + 60, 65, 71, 76, 82, + 88, 93, 99, + 105, 111, 116, 122, + 128, 133, 139, 144, 150, + 156, 161, 167, 172, 178, + 184, 189, 195, + 201, 207, 212, 218, + 224, 229, 235, 240, 246, + 252, 257, 263, 268, 274, + 280, 285, 291, 296, + 303, 308, 314, + 320, 325, 331, 336, 342, + 348, 353, 359, 364, 370, + 376, 381, 387, 392, 398 +] + + +start_years . forEach (start_year => { + long_year_offsets . forEach (offset => { + let year = start_year + offset + if (1900 <= year && year <= 2100) { + console . log (year) + } + }) +}) diff --git a/challenge-137/abigail/node/ch-1a.js b/challenge-137/abigail/node/ch-1a.js new file mode 100644 index 0000000000..e0e8d46341 --- /dev/null +++ b/challenge-137/abigail/node/ch-1a.js @@ -0,0 +1,37 @@ +#!/usr/local/bin/node + +// +// See ../README.md +// + +// +// Run as: node ch-1a.js < input-file +// + +let SUNDAY = 0 +let MONDAY = 1 +let TUESDAY = 2 +let WEDNESDAY = 3 +let THURSDAY = 4 +let FRIDAY = 5 +let SATURDAY = 6 + +function doomsday (year) { + let anchor = [TUESDAY, SUNDAY, FRIDAY, WEDNESDAY] + [Math . floor (year / 100) % 4] + let y = year % 100 + let doomsday = ((Math . floor (y / 12) + (y % 12) + + Math . floor ((y % 12) / 4)) + anchor) % 7 + return (doomsday) +} + +function is_leap (year) { + return ((year % 400 == 0) || (year % 4 == 0 && year % 100 != 0)) +} + +for (year = 1900; year <= 2100; year ++) { + let dec_31 = (doomsday (year) + 31 - 12) % 7 + if (dec_31 == THURSDAY || dec_31 == FRIDAY && is_leap (year)) { + console . log (year) + } +} diff --git a/challenge-137/abigail/node/ch-2.js b/challenge-137/abigail/node/ch-2.js new file mode 100644 index 0000000000..75eef836c8 --- /dev/null +++ b/challenge-137/abigail/node/ch-2.js @@ -0,0 +1,30 @@ +#!/usr/local/bin/node + +// +// See ../README.md +// + +// +// Run as: node ch-2.js < input-file +// + +function reverse (num) { + let rev = 0 + while (num > 0) { + |