diff options
| author | Abigail <abigail@abigail.freedom.nl> | 2021-12-20 18:30:29 +0100 |
|---|---|---|
| committer | Abigail <abigail@abigail.freedom.nl> | 2021-12-20 18:30:29 +0100 |
| commit | 8254e0cdd38e99a76e12136123400a6160d6f160 (patch) | |
| tree | a2837ca2d8697b754d5e472d8c7cbc082a6958a9 /challenge-144 | |
| parent | 1aa8ecccec917bbdee515fef036e8f84c47dae22 (diff) | |
| download | perlweeklychallenge-club-8254e0cdd38e99a76e12136123400a6160d6f160.tar.gz perlweeklychallenge-club-8254e0cdd38e99a76e12136123400a6160d6f160.tar.bz2 perlweeklychallenge-club-8254e0cdd38e99a76e12136123400a6160d6f160.zip | |
Solutions for week 144, part 1
This is just a glorified Hello, World program. So, that's what you get!
Diffstat (limited to 'challenge-144')
34 files changed, 385 insertions, 0 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..e65ce40412 --- /dev/null +++ b/challenge-144/abigail/perl/ch-1.pl @@ -0,0 +1,36 @@ +#!/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 the divisors method. +# +# BBOOOOOOOOOOOOORRRRRRRRRRRRRRRIIIIIIIIIIIIIIINNNNNNNNNNNNGGGGGGGGGG +# +# Besides, ANY challenge of the form "print the first N terms of an +# OEIS sequence" is a trivial glorified hello world program. +# +# Semiprimes have either 3 (squares of primes) or 4 divisors (product +# of two primes), but should not be cubes of primes. They only cubes +# of primes < 100 are 8 and 27. +# + +use Math::Prime::Util qw [divisors]; +my %cubes = map {$_ => 1} 8, 27; + +say join ", " => grep {!$cubes {$_} && 3 <= divisors ($_) <= 4} 1 .. 100; diff --git a/challenge-144/abigail/php/ch-1.php b/challenge-144/abigail/php/ch-1.php new file mode 100644 index 0000000000..e7477300a4 --- /dev/null +++ b/challenge-144/abigail/php/ch-1.php @@ -0,0 +1,11 @@ +<?php + // + // See ../README.md + // + + // + // Run as: php ch-1.php + // + + 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\n" +?>
\ No newline at end of file diff --git a/challenge-144/abigail/postscript/ch-1.ps b/challenge-144/abigail/postscript/ch-1.ps new file mode 100644 index 0000000000..62b38f7f97 --- /dev/null +++ b/challenge-144/abigail/postscript/ch-1.ps @@ -0,0 +1,10 @@ +%!PS +% +% See ../README.md +% + +% +% Run as: ps2ascii ch-1.ps +% + +(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/python/ch-1.py b/challenge-144/abigail/python/ch-1.py new file mode 100644 index 0000000000..3fdd6cfa92 --- /dev/null +++ b/challenge-144/abigail/python/ch-1.py @@ -0,0 +1,11 @@ +#!/opt/local/bin/python + +# +# See ../README.md +# + +# +# Run as: python ch-1.py +# + +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/r/ch-1.r b/challenge-144/abigail/r/ch-1.r new file mode 100644 index 0000000000..4f115157d6 --- /dev/null +++ b/challenge-144/abigail/r/ch-1.r @@ -0,0 +1,9 @@ +# +# See ../README.md +# + +# +# Run as: Rscript ch-1.r +# + +cat ("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/rexx/ch-1.rexx b/challenge-144/abigail/rexx/ch-1.rexx new file mode 100644 index 0000000000..2a1592bf01 --- /dev/null +++ b/challenge-144/abigail/rexx/ch-1.rexx @@ -0,0 +1,9 @@ +/* + * See ../README.md + */ + +/* + * Run as: rexx ch-1.rexx + */ + +say "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/ruby/ch-1.rb b/challenge-144/abigail/ruby/ch-1.rb new file mode 100644 index 0000000000..8e4d224ff8 --- /dev/null +++ b/challenge-144/abigail/ruby/ch-1.rb @@ -0,0 +1,11 @@ +#!/usr/bin/ruby + +# +# See ../README.md +# + +# +# Run as: ruby ch-1.rb +# + +puts ("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/scheme/ch-1.scm b/challenge-144/abigail/scheme/ch-1.scm new file mode 100644 index 0000000000..7d9b4fa709 --- /dev/null +++ b/challenge-144/abigail/scheme/ch-1.scm @@ -0,0 +1,9 @@ +;;; +;;; See ../README.md +;;; + +;;; +;;; Run as: guile --no-auto-compile ch-1.scm +;;; + +(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\n")
\ No newline at end of file diff --git a/challenge-144/abigail/sed/ch-1.sed b/challenge-144/abigail/sed/ch-1.sed new file mode 100644 index 0000000000..547316ac9f --- /dev/null +++ b/challenge-144/abigail/sed/ch-1.sed @@ -0,0 +1,12 @@ +# +# See ../README.md +# + +# +# Run as: sed -f ch-1.sed +# +# For each line in the input file, we write the first three +# self-describing numbers. +# + +s/.*/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/sql/ch-1.sql b/challenge-144/abigail/sql/ch-1.sql new file mode 100644 index 0000000000..c5df1097c5 --- /dev/null +++ b/challenge-144/abigail/sql/ch-1.sql @@ -0,0 +1,9 @@ +-- +-- See ../README.md +-- + +-- +-- Run as: sqlite3 < ch-1.sql +-- + +SELECT "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/t/ctest.ini b/challenge-144/abigail/t/ctest.ini new file mode 100644 index 0000000000..88e8105056 --- /dev/null +++ b/challenge-144/abigail/t/ctest.ini @@ -0,0 +1,13 @@ +#
+# Configuration file for running tests, using ctest.
+# See https://github.com/Abigail/Misc/blob/master/ctest
+#
+
+[names]
+1-1 = Fixed output
+
+[1-1]
+no_input = 1
+
+[1-1/sed]
+no_input = 0
diff --git a/challenge-144/abigail/t/input-1-1 b/challenge-144/abigail/t/input-1-1 new file mode 100644 index 0000000000..8d1c8b69c3 --- /dev/null +++ b/challenge-144/abigail/t/input-1-1 @@ -0,0 +1 @@ + diff --git a/challenge-144/abigail/t/output-1-1.exp b/challenge-144/abigail/t/output-1-1.exp new file mode 100644 index 0000000000..589eda7779 --- /dev/null +++ b/challenge-144/abigail/t/output-1-1.exp @@ -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/tcl/ch-1.tcl b/challenge-144/abigail/tcl/ch-1.tcl new file mode 100644 index 0000000000..6d6cb07903 --- /dev/null +++ b/challenge-144/abigail/tcl/ch-1.tcl @@ -0,0 +1,9 @@ +# +# See ../README.md +# + +# +# Run as: tclsh ch-1.tcl +# + +puts "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 |