Created
October 16, 2023 18:38
-
-
Save caelifer/71907155692dd151aa33ba0af98dc33c to your computer and use it in GitHub Desktop.
JAPH (just another perl hacker)
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!/usr/bin/env perl | |
| undef$/;$_=<DATA>;y/ODA\n / /ds; @yoda=map{length}split;print chr | |
| oct join('',splice(@yoda,0,3))-111 while@yoda; | |
| __DATA__ | |
| DDOOODOOODOOODOOODOOODOOODOOODOOODOOODOOODOOODOOODOOODOOODOOODOOOOOD | |
| D D | |
| D 00O00O000O00O0000 000O DD000000O0 D | |
| D 0DO0000000O0000O00 O00000 00O00000O0O D | |
| D 0000 0O0 O00 O00 00D 0DO D | |
| D 00O0 0O0 00D 000 DO0D00000D D | |
| D 0O00 DOD 000000O00000 000 O00O D | |
| D DD0000D000O0 000 0O00O0000D00DO 0OD D00O000D00O0 D | |
| D 00000DO00O0 000 000O 00D0 O0D O00000O0DO0 D | |
| D D | |
| D 0O000 OD0D O00O0 0000 DDDO000000 O00O000000 D | |
| D 0O000 O00DDO 00000 0O0D00 00O0O00000O 0O00O000000 D | |
| D 0O0O00OD00000DDD 00O 0D0 DDD D0O 00O0D D | |
| D 00000O00000000 O00 DO0 D00D00O000 00D00 D | |
| D D0O00 O0000 000O000O00DO 000 00O0 0OD00 D | |
| D O00 000 0O000D000O00O0 000 0D0O000000O00O00 D | |
| D 0 0 0O0D 0000 0O0 0O0000000O000O D | |
| D D | |
| D0ODOOODOOODOOODOOODOOODOOOO00ODOOODOOODOOODOOODOOOOO000ODOOODOOOOOD |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment
Output: