diff options
| author | Conor Hoekstra <codereport@outlook.com> | 2021-12-28 17:13:22 -0500 |
|---|---|---|
| committer | Conor Hoekstra <codereport@outlook.com> | 2021-12-28 17:13:22 -0500 |
| commit | 7d13afd3d3b2ba151d99a1d694d0906711ce9ead (patch) | |
| tree | b2faf3227040bd3967011050d611e4f720540123 /challenge-144 | |
| parent | 6e08a3189797e123107f7e6944f43ff5d9cab9bd (diff) | |
| parent | c524a3754a9f0a685a84c2dfdeea58b36e85f512 (diff) | |
| download | perlweeklychallenge-club-7d13afd3d3b2ba151d99a1d694d0906711ce9ead.tar.gz perlweeklychallenge-club-7d13afd3d3b2ba151d99a1d694d0906711ce9ead.tar.bz2 perlweeklychallenge-club-7d13afd3d3b2ba151d99a1d694d0906711ce9ead.zip | |
Merge branch 'master' of https://github.com/manwar/perlweeklychallenge-club
Diffstat (limited to 'challenge-144')
77 files changed, 2190 insertions, 152 deletions
diff --git a/challenge-144/abigail/README.md b/challenge-144/abigail/README.md index 48a5093c46..554ccda4b8 100644 --- a/challenge-144/abigail/README.md +++ b/challenge-144/abigail/README.md @@ -2,14 +2,35 @@ ## Part 1 +* [AWK](awk/ch-1.awk) * [Bash](bash/ch-1.sh) +* [Basic](basic/ch-1.bas) * [Bc](bc/ch-1.bc) +* [Befunge-93](befunge-93/ch-1.bf93) +* [C](c/ch-1.c) +* [Cobol](cobol/ch-1.cb) +* [Csh](csh/ch-1.csh) +* [Erlang](lua/ch-1.erl) +* [Forth](lua/ch-1.fs) +* [Fortran](fortran/ch-1.f90) +* [Go](go/ch-1.go) +* [Java](java/ch-1.java) * [Lua](lua/ch-1.lua) +* [m4](m4/ch-1.m4) +* [MMIX](mmix/ch-1.mms) * [Node.js](node/ch-1.js) +* [OCaml](ocaml/ch-1.ml) +* [Pascal](pascal/ch-1.p) * [Perl](perl/ch-1.pl) +* [PHP](php/ch-1.php) +* [PostScript](postscript/ch-1.ps) * [Python](python/ch-1.py) * [R](r/ch-1.r) +* [Rexx](rexx/ch-1.rexx) * [Ruby](ruby/ch-1.rb) +* [Scheme](scheme/ch-1.scm) +* [Sed](sed/ch-1.sed) +* [SQL](sql/ch-1.sql) * [Tcl](tcl/ch-1.tcl) ## Part 2 diff --git a/challenge-144/abigail/awk/ch-1.awk b/challenge-144/abigail/awk/ch-1.awk new file mode 100644 index 0000000000..4f87c14c56 --- /dev/null +++ b/challenge-144/abigail/awk/ch-1.awk @@ -0,0 +1,13 @@ +#!/usr/bin/awk + +# +# See ../README.md +# + +# +# Run as: awk -f ch-1.awk +# + +BEGIN { + print "4, 6, 9, 10, 14, 15, 21, 22, 25, 26, 33, 34, 35, 38, 39, 46, 49, 51, 55, 57, 58, 62, 65, 69, 74, 77, 82, 85, 86, 87, 91, 93, 94, 95" +}
\ No newline at end of file diff --git a/challenge-144/abigail/bash/ch-1.sh b/challenge-144/abigail/bash/ch-1.sh new file mode 100644 index 0000000000..3f5cc61adb --- /dev/null +++ b/challenge-144/abigail/bash/ch-1.sh @@ -0,0 +1,11 @@ +#!/bin/sh + +# +# See ../README.md +# + +# +# Run as: bash ch-1.sh +# + +echo "4, 6, 9, 10, 14, 15, 21, 22, 25, 26, 33, 34, 35, 38, 39, 46, 49, 51, 55, 57, 58, 62, 65, 69, 74, 77, 82, 85, 86, 87, 91, 93, 94, 95"
\ No newline at end of file diff --git a/challenge-144/abigail/basic/ch-1.bas b/challenge-144/abigail/basic/ch-1.bas new file mode 100644 index 0000000000..ed7fc2883c --- /dev/null +++ b/challenge-144/abigail/basic/ch-1.bas @@ -0,0 +1,9 @@ +010 REM +020 REM See ../README.md +030 REM + +040 REM +050 REM Run as: basic ch-1.bas +060 REM + +100 PRINT "4, 6, 9, 10, 14, 15, 21, 22, 25, 26, 33, 34, 35, 38, 39, 46, 49, 51, 55, 57, 58, 62, 65, 69, 74, 77, 82, 85, 86, 87, 91, 93, 94, 95"
\ No newline at end of file diff --git a/challenge-144/abigail/bc/ch-1.bc b/challenge-144/abigail/bc/ch-1.bc new file mode 100644 index 0000000000..a73f52903b --- /dev/null +++ b/challenge-144/abigail/bc/ch-1.bc @@ -0,0 +1,10 @@ +# +# See ../README.md +# + +# +# Run as: bc ch-1.bc +# +"4, 6, 9, 10, 14, 15, 21, 22, 25, 26, 33, 34, 35, 38, 39, 46, 49, 51, 55, 57, 58, 62, 65, 69, 74, 77, 82, 85, 86, 87, 91, 93, 94, 95 +" +quit
\ No newline at end of file diff --git a/challenge-144/abigail/befunge-93/ch-1.bf93 b/challenge-144/abigail/befunge-93/ch-1.bf93 new file mode 100644 index 0000000000..06001a7f07 --- /dev/null +++ b/challenge-144/abigail/befunge-93/ch-1.bf93 @@ -0,0 +1,4 @@ +< v "77, 82, 85, 86, 87, 91, 93, 94, 95" +55 + < v "38, 39, 46, 49, 51, 55, 57, 58, 62, 65, 69, 74, " + < v,_@#:< "4, 6, 9, 10, 14, 15, 21, 22, 25, 26, 33, 34, 35, " + > ^
\ No newline at end of file diff --git a/challenge-144/abigail/c/ch-1.c b/challenge-144/abigail/c/ch-1.c new file mode 100644 index 0000000000..1ed987f8dd --- /dev/null +++ b/challenge-144/abigail/c/ch-1.c @@ -0,0 +1,16 @@ +# 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 + */ + +int main (void) { + printf ("4, 6, 9, 10, 14, 15, 21, 22, 25, 26, 33, 34, 35, 38, 39, 46, 49, 51, 55, 57, 58, 62, 65, 69, 74, 77, 82, 85, 86, 87, 91, 93, 94, 95\n"); + exit (0); +}
\ No newline at end of file diff --git a/challenge-144/abigail/cobol/ch-1.cb b/challenge-144/abigail/cobol/ch-1.cb new file mode 100644 index 0000000000..5cd967efda --- /dev/null +++ b/challenge-144/abigail/cobol/ch-1.cb @@ -0,0 +1,14 @@ +IDENTIFICATION DIVISION. +PROGRAM-ID. XXX. + +*> +*> See ../README.md +*> + +*> +*> Run as: cobc -xF -o ch-1.o ch-1.cb; ./ch-1.o +*> + +PROCEDURE DIVISION. + DISPLAY "4, 6, 9, 10, 14, 15, 21, 22, 25, 26, 33, 34, 35, 38, 39, 46, 49, 51, 55, 57, 58, 62, 65, 69, 74, 77, 82, 85, 86, 87, 91, 93, 94, 95". + STOP RUN. diff --git a/challenge-144/abigail/csh/ch-1.csh b/challenge-144/abigail/csh/ch-1.csh new file mode 100644 index 0000000000..a1a34d3f27 --- /dev/null +++ b/challenge-144/abigail/csh/ch-1.csh @@ -0,0 +1,11 @@ +#!/bin/csh + +# +# See ../README.md +# + +# +# Run as: csh ch-1.csh +# + +echo "4, 6, 9, 10, 14, 15, 21, 22, 25, 26, 33, 34, 35, 38, 39, 46, 49, 51, 55, 57, 58, 62, 65, 69, 74, 77, 82, 85, 86, 87, 91, 93, 94, 95"
\ No newline at end of file diff --git a/challenge-144/abigail/erlang/ch-1.erl b/challenge-144/abigail/erlang/ch-1.erl new file mode 100644 index 0000000000..e7431f363b --- /dev/null +++ b/challenge-144/abigail/erlang/ch-1.erl @@ -0,0 +1,15 @@ +% +% 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]). + +main () -> + io:fwrite ("4, 6, 9, 10, 14, 15, 21, 22, 25, 26, 33, 34, 35, 38, 39, 46, 49, 51, 55, 57, 58, 62, 65, 69, 74, 77, 82, 85, 86, 87, 91, 93, 94, 95\n").
\ No newline at end of file diff --git a/challenge-144/abigail/forth/ch-1.fs b/challenge-144/abigail/forth/ch-1.fs new file mode 100644 index 0000000000..6b2e57e241 --- /dev/null +++ b/challenge-144/abigail/forth/ch-1.fs @@ -0,0 +1,5 @@ +\ +\ See ../README.md +\ + +.( 4, 6, 9, 10, 14, 15, 21, 22, 25, 26, 33, 34, 35, 38, 39, 46, 49, 51, 55, 57, 58, 62, 65, 69, 74, 77, 82, 85, 86, 87, 91, 93, 94, 95)
\ No newline at end of file diff --git a/challenge-144/abigail/fortran/ch-1.f90 b/challenge-144/abigail/fortran/ch-1.f90 new file mode 100644 index 0000000000..3a77b4cf66 --- /dev/null +++ b/challenge-144/abigail/fortran/ch-1.f90 @@ -0,0 +1,14 @@ +! +! See ../README.md +! + +! +! Run as: gfortran -o ch-1.o ch-1.f90; ./ch-1.o +! + +program ch1 + implicit none + write (*, '(A)', advance='no') "4, 6, 9, 10, 14, 15, 21, 22, 25, 26, 33, " + write (*, '(A)', advance='no') "34, 35, 38, 39, 46, 49, 51, 55, 57, 58, " + write (*, '(A)') "62, 65, 69, 74, 77, 82, 85, 86, 87, 91, 93, 94, 95" +end
\ No newline at end of file diff --git a/challenge-144/abigail/go/ch-1.go b/challenge-144/abigail/go/ch-1.go new file mode 100644 index 0000000000..2328efdc3b --- /dev/null +++ b/challenge-144/abigail/go/ch-1.go @@ -0,0 +1,15 @@ +package main + +// +// See ../README.md +// + +// +// Run as: go run ch-1.go +// + +import "fmt" + +func main () { + fmt . Print ("4, 6, 9, 10, 14, 15, 21, 22, 25, 26, 33, 34, 35, 38, 39, 46, 49, 51, 55, 57, 58, 62, 65, 69, 74, 77, 82, 85, 86, 87, 91, 93, 94, 95\n") +}
\ No newline at end of file diff --git a/challenge-144/abigail/java/ch-1.java b/challenge-144/abigail/java/ch-1.java new file mode 100644 index 0000000000..34b246bfe5 --- /dev/null +++ b/challenge-144/abigail/java/ch-1.java @@ -0,0 +1,13 @@ +// +// See ../README.md +// + +// +// Run as: ln ch-1.java ch1.java; javac ch1; java ch1 +// + +public class ch1 { + public static void main (String [] args) { + System . out . print ("4, 6, 9, 10, 14, 15, 21, 22, 25, 26, 33, 34, 35, 38, 39, 46, 49, 51, 55, 57, 58, 62, 65, 69, 74, 77, 82, 85, 86, 87, 91, 93, 94, 95\n"); + } +}
\ No newline at end of file diff --git a/challenge-144/abigail/lua/ch-1.lua b/challenge-144/abigail/lua/ch-1.lua new file mode 100644 index 0000000000..310f260af9 --- /dev/null +++ b/challenge-144/abigail/lua/ch-1.lua @@ -0,0 +1,11 @@ +#!/opt/local/bin/lua + +-- +-- See ../README.md +-- + +-- +-- Run as: lua ch-1.lua +-- + +print ("4, 6, 9, 10, 14, 15, 21, 22, 25, 26, 33, 34, 35, 38, 39, 46, 49, 51, 55, 57, 58, 62, 65, 69, 74, 77, 82, 85, 86, 87, 91, 93, 94, 95")
\ No newline at end of file diff --git a/challenge-144/abigail/m4/ch-1.m4 b/challenge-144/abigail/m4/ch-1.m4 new file mode 100644 index 0000000000..589eda7779 --- /dev/null +++ b/challenge-144/abigail/m4/ch-1.m4 @@ -0,0 +1 @@ +4, 6, 9, 10, 14, 15, 21, 22, 25, 26, 33, 34, 35, 38, 39, 46, 49, 51, 55, 57, 58, 62, 65, 69, 74, 77, 82, 85, 86, 87, 91, 93, 94, 95 diff --git a/challenge-144/abigail/mmix/ch-1.mms b/challenge-144/abigail/mmix/ch-1.mms new file mode 100644 index 0000000000..e3e8095f46 --- /dev/null +++ b/challenge-144/abigail/mmix/ch-1.mms @@ -0,0 +1,18 @@ +% +% See ../README.md +% + +% +% Run as: mmixal -o ch-1.mmo ch-1.mms; mmix -q ch-1.mmo +% + LOC Data_Segment + GREG @ +Text BYTE "4, 6, 9, 10, 14, 15, 21, 22, 25, 26, 33, 34, 35, 38, " + BYTE "39, 46, 49, 51, 55, 57, 58, 62, 65, 69, 74, 77, 82, " + BYTE "85, 86, 87, 91, 93, 94, 95",10,0 + + LOC #100 + +Main LDA $255,Text + TRAP 0,Fputs,StdOut + TRAP 0,Halt,0
\ No newline at end of file diff --git a/challenge-144/abigail/node/ch-1.js b/challenge-144/abigail/node/ch-1.js new file mode 100644 index 0000000000..194b821605 --- /dev/null +++ b/challenge-144/abigail/node/ch-1.js @@ -0,0 +1,11 @@ +#!/usr/local/bin/node + +// +// See ../README.md +// + +// +// Run as: node ch-1.js +// + +console . log ("4, 6, 9, 10, 14, 15, 21, 22, 25, 26, 33, 34, 35, 38, 39, 46, 49, 51, 55, 57, 58, 62, 65, 69, 74, 77, 82, 85, 86, 87, 91, 93, 94, 95")
\ No newline at end of file diff --git a/challenge-144/abigail/ocaml/ch-1.ml b/challenge-144/abigail/ocaml/ch-1.ml new file mode 100644 index 0000000000..e530d76fd3 --- /dev/null +++ b/challenge-144/abigail/ocaml/ch-1.ml @@ -0,0 +1,9 @@ +(* *) +(* See ../README.md *) +(* *) + +(* *) +(* Run as: ocaml ch-1.ml *) +(* *) + +print_endline "4, 6, 9, 10, 14, 15, 21, 22, 25, 26, 33, 34, 35, 38, 39, 46, 49, 51, 55, 57, 58, 62, 65, 69, 74, 77, 82, 85, 86, 87, 91, 93, 94, 95";
\ No newline at end of file diff --git a/challenge-144/abigail/pascal/ch-1.p b/challenge-144/abigail/pascal/ch-1.p new file mode 100644 index 0000000000..ce23f37768 --- /dev/null +++ b/challenge-144/abigail/pascal/ch-1.p @@ -0,0 +1,13 @@ +Program XXX; + +(* *) +(* See ../README.md *) +(* *) + +(* *) +(* Run as: fpc -och-1.out ch-1.p; ./ch-1.out *) +(* *) + +begin + writeln ('4, 6, 9, 10, 14, 15, 21, 22, 25, 26, 33, 34, 35, 38, 39, 46, 49, 51, 55, 57, 58, 62, 65, 69, 74, 77, 82, 85, 86, 87, 91, 93, 94, 95') +end.
\ No newline at end of file diff --git a/challenge-144/abigail/perl/ch-1.pl b/challenge-144/abigail/perl/ch-1.pl new file mode 100644 index 0000000000..f2908f64f6 --- /dev/null +++ b/challenge-144/abigail/perl/ch-1.pl @@ -0,0 +1,33 @@ +#!/opt/perl/bin/perl + +use 5.032; + +use strict; +use warnings; +no warnings 'syntax'; + +use experimental 'signatures'; +use experimental 'lexical_subs'; + +# +# See ../README.md +# + +# +# Run as: perl ch-1.pl +# + +# +# And the upteenth time in succession, we'll use Math::Prime::Util +# +# BBBBBBBBBBOOOOOOOOOOORRRRRRRRRRRIIIIIIIIIIINNNNNNNNNNNGGGGGGGGGG +# +# Besides, ANY challenge of the form "print the first N terms of an +# OEIS sequence" is a trivial glorified hello world program. +# +# Semiprimes have exactly 2 factors. +# + +use Math::Prime::Util qw [factor]; + +say join ", " => grep {2 == factor $_} 1 .. 100; diff --git a/challenge-144/abigail/perl/ch-2.pl b/challenge-144/abigail/perl/ch-2.pl new file mode 100644 index 0000000000..d9dbb97da3 --- /dev/null +++ b/challenge-144/abigail/perl/ch-2.pl @@ -0,0 +1,43 @@ +#!/opt/perl/bin/perl + +use 5.032; + +use st |