#Perl 5, 70 bytes
Perl 5, 70 bytes
A subroutine:
{$"='';reverse(map/[A-Z]/?chr(155-ord):$_,(@_=split'',uc$_[0]))eq"@_"}
See it in use:
print sub{...}->("W i z a r d")
#Perl 5, 70 bytes
A subroutine:
{$"='';reverse(map/[A-Z]/?chr(155-ord):$_,(@_=split'',uc$_[0]))eq"@_"}
See it in use:
print sub{...}->("W i z a r d")
Perl 5, 70 bytes
A subroutine:
{$"='';reverse(map/[A-Z]/?chr(155-ord):$_,(@_=split'',uc$_[0]))eq"@_"}
See it in use:
print sub{...}->("W i z a r d")
perlsub says "The signature is part of a subroutine's body. Normally the body of a subroutine is simply a braced block of code."
msh210
- 3.5k
- 23
- 36
#Perl 5, 6870 bytes
A subroutine:
{$"='';reverse(map/[A-Z]/?chr(155-ord):$_,(@_=split'',uc$_[0]))eq"@_"}
See it in use:
print sub{...}->("W i z a r d")
#Perl 5, 68 bytes
A subroutine:
$"='';reverse(map/[A-Z]/?chr(155-ord):$_,(@_=split'',uc$_[0]))eq"@_"
See it in use:
print sub{...}->("W i z a r d")
#Perl 5, 70 bytes
A subroutine:
{$"='';reverse(map/[A-Z]/?chr(155-ord):$_,(@_=split'',uc$_[0]))eq"@_"}
See it in use:
print sub{...}->("W i z a r d")