Skip to main content
Code Golf

Return to Answer

deleted 12 characters in body
Source Link
primo
primo
  • 33.5k
  • 5
  • 61
  • 139

Perl, 77.575 (155150 bytes - 50%)

#!perl -nl
$i=vec~$_,0,32;print+qw(- - ^ < > V A)[0,map{vec(qw'p BB# CdCu VDs dEV TB%
#4B VFe 63Ve 2$C eeTT ES4 &CC Vb%'[$i/480%15]'w2$$W4F4w7DeweTFwR$Ew$C2wVdeVe3cw4B#EEVVwC5Tw44bwR&e',$i/480%15*8-$_,4)==$.&&$.,0}01..7]while$8]while$.++<6

Counting the shebang as 2, input is taken from stdin.

Sample usage

$ echo zel | perl zelda.pl
---^-----^-------
-<-----<---------
----->----->-----
-----------------
-----------------

$ echo bof | perl zelda.pl
-----------------
-----------------
--------->--->---
-V---V-----V---V-
---A---A---------

$ echo scs | perl zelda.pl
-----------------
---<-<-<---------
-----------------
-----------V-V---
-A-------A-----A-

Perl, 77.5 (155 bytes - 50%)

#!perl -nl
$i=vec~$_,0,32;print+qw(- - ^ < > V A)[0,map{vec(qw'p BB# CdCu VDs dEV TB%
#4B VFe 63Ve 2$C eeTT ES4 &CC Vb%'[$i/480%15],$_,4)==$.&&$.,0}0..7]while$.++<6

Counting the shebang as 2, input is taken from stdin.

Sample usage

$ echo zel | perl zelda.pl
---^-----^-------
-<-----<---------
----->----->-----
-----------------
-----------------

$ echo bof | perl zelda.pl
-----------------
-----------------
--------->--->---
-V---V-----V---V-
---A---A---------

$ echo scs | perl zelda.pl
-----------------
---<-<-<---------
-----------------
-----------V-V---
-A-------A-----A-

Perl, 75 (150 bytes - 50%)

#!perl -nl
$i=vec~$_,0,32;print+qw(- - ^ < > V A)[0,map{vec('w2$$W4F4w7DeweTFwR$Ew$C2wVdeVe3cw4B#EEVVwC5Tw44bwR&e',$i/480%15*8-$_,4)==$.&&$.,0}1..8]while$.++<6

Counting the shebang as 2, input is taken from stdin.

Sample usage

$ echo zel | perl zelda.pl
---^-----^-------
-<-----<---------
----->----->-----
-----------------
-----------------

$ echo bof | perl zelda.pl
-----------------
-----------------
--------->--->---
-V---V-----V---V-
---A---A---------

$ echo scs | perl zelda.pl
-----------------
---<-<-<---------
-----------------
-----------V-V---
-A-------A-----A-
deleted 2 characters in body
Source Link
primo
primo
  • 33.5k
  • 5
  • 61
  • 139

Perl, 7977.5 (159155 bytes - 50%)

#!perl -nl
$i=unpack N$i=vec~$_,$_.A;print+qw0,32;print+qw(- - ^ < > V A)[0,map{vec(qw'CdCuqw'p 2$CBB# #4BCdCu &CCVDs 63VedEV TB%
eeTT#4B VFe BB#63Ve p2$C peeTT ES4 TB% dEV VDs&CC Vb%'[$i/527%15]480%15],$_,4)==$.&&$.,0}0..7]while$.++<6

Counting the shebang as 2, input is taken from stdin.

Sample usage

$ echo zel | perl zelda.pl
---^-----^-------
-<-----<---------
----->----->-----
-----------------
-----------------

$ echo bof | perl zelda.pl
-----------------
-----------------
--------->--->---
-V---V-----V---V-
---A---A---------

$ echo scs | perl zelda.pl
-----------------
---<-<-<---------
-----------------
-----------V-V---
-A-------A-----A-

Perl, 79.5 (159 bytes - 50%)

#!perl -nl
$i=unpack N,$_.A;print+qw(- - ^ < > V A)[0,map{vec(qw'CdCu 2$C #4B &CC 63Ve
eeTT VFe BB# p p ES4 TB% dEV VDs Vb%'[$i/527%15],$_,4)==$.&&$.,0}0..7]while$.++<6

Counting the shebang as 2, input is taken from stdin.

Sample usage

$ echo zel | perl zelda.pl
---^-----^-------
-<-----<---------
----->----->-----
-----------------
-----------------

$ echo bof | perl zelda.pl
-----------------
-----------------
--------->--->---
-V---V-----V---V-
---A---A---------

$ echo scs | perl zelda.pl
-----------------
---<-<-<---------
-----------------
-----------V-V---
-A-------A-----A-

Perl, 77.5 (155 bytes - 50%)

#!perl -nl
$i=vec~$_,0,32;print+qw(- - ^ < > V A)[0,map{vec(qw'p BB# CdCu VDs dEV TB%
#4B VFe 63Ve 2$C eeTT ES4 &CC Vb%'[$i/480%15],$_,4)==$.&&$.,0}0..7]while$.++<6

Counting the shebang as 2, input is taken from stdin.

Sample usage

$ echo zel | perl zelda.pl
---^-----^-------
-<-----<---------
----->----->-----
-----------------
-----------------

$ echo bof | perl zelda.pl
-----------------
-----------------
--------->--->---
-V---V-----V---V-
---A---A---------

$ echo scs | perl zelda.pl
-----------------
---<-<-<---------
-----------------
-----------V-V---
-A-------A-----A-
deleted 16 characters in body
Source Link
primo
primo
  • 33.5k
  • 5
  • 61
  • 139

Perl, 9579.5 (190159 bytes - 50%)

#!perl -nl
//;print+qw$i=unpack N,$_.A;print+qw(- - ^ < > V A)[0,map{vec({qw'zel #4B sas ES4 epsqw'CdCu 2$C sos TB% sot dEV sst Vb% mof#4B &CC bof 63Ve
eeTT sow VDsVFe nosBB# CdCup rosp VFeES4 polTB% BB#dEV scsVDs 63Ve'}->{$'}Vb%'[$i/527%15],$_,4)==$.&&$.,0}0..7]while$.++<6

Counting the shebang as 2, input is taken from stdin.

Sample usage

$ echo zel|perlzel | perl zelda.pl
---^-----^-------
-<-----<---------
----->----->-----
-----------------
-----------------

$ echo bof|perlbof | perl zelda.pl
-----------------
-----------------
--------->--->---
-V---V-----V---V-
---A---A---------

$ echo scs|perlscs | perl zelda.pl
-----------------
---<-<-<---------
-----------------
-----------V-V---
-A-------A-----A-

Perl, 95 (190 bytes - 50%)

#!perl -nl
//;print+qw(- - ^ < > V A)[0,map{vec({qw'zel #4B sas ES4 eps 2$C sos TB% sot dEV sst Vb% mof &CC bof eeTT sow VDs nos CdCu ros VFe pol BB# scs 63Ve'}->{$'},$_,4)==$.&&$.,0}0..7]while$.++<6

Counting the shebang as 2, input is taken from stdin.

Sample usage

$ echo zel|perl zelda.pl
---^-----^-------
-<-----<---------
----->----->-----
-----------------
-----------------

$ echo bof|perl zelda.pl
-----------------
-----------------
--------->--->---
-V---V-----V---V-
---A---A---------

$ echo scs|perl zelda.pl
-----------------
---<-<-<---------
-----------------
-----------V-V---
-A-------A-----A-

Perl, 79.5 (159 bytes - 50%)

#!perl -nl
$i=unpack N,$_.A;print+qw(- - ^ < > V A)[0,map{vec(qw'CdCu 2$C #4B &CC 63Ve
eeTT VFe BB# p p ES4 TB% dEV VDs Vb%'[$i/527%15],$_,4)==$.&&$.,0}0..7]while$.++<6

Counting the shebang as 2, input is taken from stdin.

Sample usage

$ echo zel | perl zelda.pl
---^-----^-------
-<-----<---------
----->----->-----
-----------------
-----------------

$ echo bof | perl zelda.pl
-----------------
-----------------
--------->--->---
-V---V-----V---V-
---A---A---------

$ echo scs | perl zelda.pl
-----------------
---<-<-<---------
-----------------
-----------V-V---
-A-------A-----A-
deleted 3 characters in body
Source Link
primo
primo
  • 33.5k
  • 5
  • 61
  • 139
deleted 28 characters in body
Source Link
primo
primo
  • 33.5k
  • 5
  • 61
  • 139
Source Link
primo
primo
  • 33.5k
  • 5
  • 61
  • 139