diff options
| author | Conor Hoekstra <codereport@outlook.com> | 2023-04-14 15:49:26 -0400 |
|---|---|---|
| committer | Conor Hoekstra <codereport@outlook.com> | 2023-04-14 15:49:26 -0400 |
| commit | e1bd98ffd35563222aa0078eb0d99aa3496b2dce (patch) | |
| tree | e0ccd027f474185aee3e11de6964b908c723a5fa | |
| parent | 33e769177db792d141f888c0d79a884292bc9bd9 (diff) | |
| download | perlweeklychallenge-club-e1bd98ffd35563222aa0078eb0d99aa3496b2dce.tar.gz perlweeklychallenge-club-e1bd98ffd35563222aa0078eb0d99aa3496b2dce.tar.bz2 perlweeklychallenge-club-e1bd98ffd35563222aa0078eb0d99aa3496b2dce.zip | |
APL Solution to 212 P1
| -rw-r--r-- | challenge-212/conor-hoekstra/ch-01.apl | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/challenge-212/conor-hoekstra/ch-01.apl b/challenge-212/conor-hoekstra/ch-01.apl new file mode 100644 index 0000000000..655a5db552 --- /dev/null +++ b/challenge-212/conor-hoekstra/ch-01.apl @@ -0,0 +1,9 @@ +LetterJump ← { + n ← ⎕UCS⍵ + m ← 65+32×97≤n + ⎕UCS m+26|⍺+n-m +} + +⍝ Tests +2 22 19 9 LetterJump 'Perl' ⍝ Raku +24 4 7 17 LetterJump 'Raku' ⍝ Perl |