diff options
| author | Abigail <abigail@abigail.freedom.nl> | 2022-01-24 21:17:26 +0100 |
|---|---|---|
| committer | Abigail <abigail@abigail.freedom.nl> | 2022-01-25 02:00:52 +0100 |
| commit | 158e2b79cc16f52dd755457be2a39eaa669de421 (patch) | |
| tree | 72422a4ecdae4ef9441f75e0473444c08d5ea2f1 /challenge-149/abigail/pascal/ch-2.p | |
| parent | 855d436b931866b06fd71890dad7151fb200364f (diff) | |
| download | perlweeklychallenge-club-158e2b79cc16f52dd755457be2a39eaa669de421.tar.gz perlweeklychallenge-club-158e2b79cc16f52dd755457be2a39eaa669de421.tar.bz2 perlweeklychallenge-club-158e2b79cc16f52dd755457be2a39eaa669de421.zip | |
Week 149, part 2: Solutions in 16 languages.
Diffstat (limited to 'challenge-149/abigail/pascal/ch-2.p')
| -rw-r--r-- | challenge-149/abigail/pascal/ch-2.p | 49 |
1 files changed, 49 insertions, 0 deletions
diff --git a/challenge-149/abigail/pascal/ch-2.p b/challenge-149/abigail/pascal/ch-2.p new file mode 100644 index 0000000000..ae7df583aa --- /dev/null +++ b/challenge-149/abigail/pascal/ch-2.p @@ -0,0 +1,49 @@ +Program ch2; + +(* *) +(* See https://theweeklychallenge.org/blog/perl-weekly-challenge-149 *) +(* *) + +(* *) +(* Run as: fpc -och-2.out ch-2.p; ./ch-2.out < input-file *) +(* *) + +var + A287298: array [0 .. 22] of string; + n: integer; + +begin + A287298 [ 0] := ''; + A287298 [ 1] := ''; + A287298 [ 2] := '1'; + A287298 [ 3] := '1'; + A287298 [ 4] := '3201'; + A287298 [ 5] := '4301'; + A287298 [ 6] := '452013'; + A287298 [ 7] := '6250341'; + A287298 [ 8] := '47302651'; + A287298 [ 9] := '823146570'; + A287298 [10] := '9814072356'; + A287298 [11] := 'A8701245369'; + A287298 [12] := 'B8750A649321'; + A287298 [13] := 'CBA504216873'; + A287298 [14] := 'DC71B30685A924'; + A287298 [15] := 'EDAC93B24658701'; + A287298 [16] := 'FED5B39A42706C81'; + A287298 [17] := 'GFED5A31C6B79802'; + A287298 [18] := 'HGF80ADC53712EB649'; + A287298 [19] := 'IHGFD3408C6E715A2B9'; + A287298 [20] := 'JIHG03DAC457BFE96281'; + A287298 [21] := ''; + A287298 [22] := 'LKJIG5D14B9032FHAC867E'; + + while not eof do begin + readln (n); + if (n > 22) or (length (A287298 [n]) = 0) then begin + writeln ('Too hard to calculate'); + end + else begin + writeln (A287298 [n]); + end; + end; +end. |