diff options
| author | rir <rirans@comcast.net> | 2024-03-14 01:01:16 -0400 |
|---|---|---|
| committer | rir <rirans@comcast.net> | 2024-03-14 01:01:16 -0400 |
| commit | 60f1003122fbada697317d943c238593f86db579 (patch) | |
| tree | 16d08c01e8053105bbff1b84227ab815af7adf10 /challenge-004 | |
| parent | dfe459e065d51e41d8cc7feb00a5f53b5080d79e (diff) | |
| download | perlweeklychallenge-club-60f1003122fbada697317d943c238593f86db579.tar.gz perlweeklychallenge-club-60f1003122fbada697317d943c238593f86db579.tar.bz2 perlweeklychallenge-club-60f1003122fbada697317d943c238593f86db579.zip | |
1, 2, 3, 4, 260
Diffstat (limited to 'challenge-004')
| -rw-r--r-- | challenge-004/0rir/raku/Pi1000.rakumod | 5 | ||||
| -rw-r--r-- | challenge-004/0rir/raku/ch-1.raku | 7 |
2 files changed, 12 insertions, 0 deletions
diff --git a/challenge-004/0rir/raku/Pi1000.rakumod b/challenge-004/0rir/raku/Pi1000.rakumod new file mode 100644 index 0000000000..fb47d5fb49 --- /dev/null +++ b/challenge-004/0rir/raku/Pi1000.rakumod @@ -0,0 +1,5 @@ + +unit module Pi1000; + +sub Pi( --> RatStr) is export { + <3.1415926535897932384626433832795028841971693993751058209749445923078164062862089986280348253421170679821480865132823066470938446095505822317253594081284811174502841027019385211055596446229489549303819644288109756659334461284756482337867831652712019091456485669234603486104543266482133936072602491412737245870066063155881748815209209628292540917153643678925903600113305305488204665213841469519415116094330572703657595919530921861173819326117931051185480744623799627495673518857527248912279381830119491298336733624406566430860213949463952247371907021798609437027705392171762931767523846748184676694051320005681271452635608277857713427577896091736371787214684409012249534301465495853710507922796892589235420199561121290219608640344181598136297747713099605187072113499999983729780499510597317328160963185950244594553469083026425223082533446850352619311881710100031378387528865875332083814206171776691473035982534904287554687311595628638823537875937519577818577805321712268066130019278766111959092164201989> } diff --git a/challenge-004/0rir/raku/ch-1.raku b/challenge-004/0rir/raku/ch-1.raku new file mode 100644 index 0000000000..3ed1586966 --- /dev/null +++ b/challenge-004/0rir/raku/ch-1.raku @@ -0,0 +1,7 @@ +#!/usr/bin/env raku +use lib $?FILE.IO.cleanup.parent; +use Pi1000; + +# 004-1 This script outputs PI w/ digit count == its file size. + +say Pi().substr( 0, $*PROGRAM.s + 1); |