diff options
| author | HVukman <peterslopp@googlemail.com> | 2025-10-26 22:10:55 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2025-10-26 22:10:55 +0100 |
| commit | bf1573a3b7ddd48d6c82bac798923235f9c19d42 (patch) | |
| tree | f80aa3b35d8576a8e9a1ae83e1141b2bdf340b00 | |
| parent | 8b86e6c81baf0bd9e19fad2a90b2ce5c11deda31 (diff) | |
| download | perlweeklychallenge-club-bf1573a3b7ddd48d6c82bac798923235f9c19d42.tar.gz perlweeklychallenge-club-bf1573a3b7ddd48d6c82bac798923235f9c19d42.tar.bz2 perlweeklychallenge-club-bf1573a3b7ddd48d6c82bac798923235f9c19d42.zip | |
Create 344_p2.k
| -rw-r--r-- | challenge-344/hvukman/k/344_p2.k | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/challenge-344/hvukman/k/344_p2.k b/challenge-344/hvukman/k/344_p2.k new file mode 100644 index 0000000000..404d1036e4 --- /dev/null +++ b/challenge-344/hvukman/k/344_p2.k @@ -0,0 +1,8 @@ +prm:{$[0=x;,!0;,/(prm x-1){?[1+x;y;0]}/:\:!x]} +perm:{x[prm[#x]]} +/ returns 0! if no permutation equals target +{target::x;source::y; &1=*/'{x=target}'(,//'perm(source))}[1 2 3 4;((2;3);(1);(4)) ] +{target::x;source::y; &1=*/'{x=target}'(,//'perm(source))}[1 2 3 4;((1;3);(2;4))] +{target::x;source::y; &1=*/'{$[(#x)=#target;x=target;0 ]}'(,//'perm(source))}[5 8 2 9 1;((9;1);(5;8);(2))] +{target::x;source::y; &1=*/'{$[(#x)=#target;x=target;0 ]}'(,//'perm(source))}[1 2 3;((1);(3))] +{target::x;source::y; &1=*/'{x=target}'(,//'perm(source))}[7 4 6;((7;4;6))] |