diff options
| author | Packy Anderson <PackyAnderson@gmail.com> | 2023-10-30 21:46:01 -0400 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-10-30 21:46:01 -0400 |
| commit | 2a34bfaf2ba34539535040875128b7e5148f9d47 (patch) | |
| tree | 1d5f0bf94979c72111f3d96c8b00e19bbf20ff85 /challenge-240/razetime/factor/ch-2.factor | |
| parent | 1b80709ac09ecd2d9fc73b50cb2015f3c958bd0d (diff) | |
| parent | 71ad4139989a590a4a64b128ae3de74f7c19bad8 (diff) | |
| download | perlweeklychallenge-club-2a34bfaf2ba34539535040875128b7e5148f9d47.tar.gz perlweeklychallenge-club-2a34bfaf2ba34539535040875128b7e5148f9d47.tar.bz2 perlweeklychallenge-club-2a34bfaf2ba34539535040875128b7e5148f9d47.zip | |
Merge branch 'manwar:master' into master
Diffstat (limited to 'challenge-240/razetime/factor/ch-2.factor')
| -rw-r--r-- | challenge-240/razetime/factor/ch-2.factor | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/challenge-240/razetime/factor/ch-2.factor b/challenge-240/razetime/factor/ch-2.factor new file mode 100644 index 0000000000..bdff6ba71a --- /dev/null +++ b/challenge-240/razetime/factor/ch-2.factor @@ -0,0 +1,5 @@ +USING: kernel sequences ; +IN: pwc-240-1 +: ch-1 ( seq -- seq' ) dup nths ; +{ 0 2 1 5 3 4 } ch-1 { 0 1 2 4 5 3 } assert= +{ 5 0 1 2 3 4 } ch-1 { 4 5 0 1 2 3 } assert= |