diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2022-01-29 18:34:09 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-01-29 18:34:09 +0000 |
| commit | b0aed25176efe004fb22144d77b5cf5f4e13e90e (patch) | |
| tree | 25f2bce1a71879a1df57097702910056c1d932e7 /challenge-149/abigail/pascal/ch-2.p | |
| parent | dc6adce803a5d8affa26b0d58a4653866f0af722 (diff) | |
| parent | e0292606923eb1126eda9b1c335c3ec45f6fcec3 (diff) | |
| download | perlweeklychallenge-club-b0aed25176efe004fb22144d77b5cf5f4e13e90e.tar.gz perlweeklychallenge-club-b0aed25176efe004fb22144d77b5cf5f4e13e90e.tar.bz2 perlweeklychallenge-club-b0aed25176efe004fb22144d77b5cf5f4e13e90e.zip | |
Merge pull request #5578 from Abigail/abigail/week-149
Abigail/week 149
Diffstat (limited to 'challenge-149/abigail/pascal/ch-2.p')
| -rw-r--r-- | challenge-149/abigail/pascal/ch-2.p | 54 |
1 files changed, 29 insertions, 25 deletions
diff --git a/challenge-149/abigail/pascal/ch-2.p b/challenge-149/abigail/pascal/ch-2.p index ae7df583aa..52e2081f1c 100644 --- a/challenge-149/abigail/pascal/ch-2.p +++ b/challenge-149/abigail/pascal/ch-2.p @@ -9,37 +9,41 @@ Program ch2; (* *) var - A287298: array [0 .. 22] of string; + A287298: array [0 .. 25] of string; + max_base: integer = 25; 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'; + 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'; + A287298 [23] := 'MLKJEFG5IC1D9H8042AB376'; + A287298 [24] := 'NMLKJ2BD0639GFE7C8IH5A41'; + A287298 [25] := 'ONMLKD8CJE2H47F6395I0B1AG'; while not eof do begin readln (n); - if (n > 22) or (length (A287298 [n]) = 0) then begin + if (n > max_base) or (length (A287298 [n]) = 0) then begin writeln ('Too hard to calculate'); end else begin |