diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2023-04-16 03:34:33 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-04-16 03:34:33 +0100 |
| commit | 75a07010d37b8521a0581e37d1f0dd4803d0bc12 (patch) | |
| tree | cf227ed19eb186db1c5ce40e69dd48427292b84c | |
| parent | 61ed9817739d97c12cd5da0afbd383876f1c6a5c (diff) | |
| parent | e1bd98ffd35563222aa0078eb0d99aa3496b2dce (diff) | |
| download | perlweeklychallenge-club-75a07010d37b8521a0581e37d1f0dd4803d0bc12.tar.gz perlweeklychallenge-club-75a07010d37b8521a0581e37d1f0dd4803d0bc12.tar.bz2 perlweeklychallenge-club-75a07010d37b8521a0581e37d1f0dd4803d0bc12.zip | |
Merge pull request #7902 from codereport/master
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 |