perl monk (ascii art)# Programming - 葵花宝典
c*t
1 楼
#/usr/bin/perl -w
use strict;my%p=
("\40"=>chr(ord("\40"
)*3-1).chr(ord("\40")+ord("\40")/4+7));$p{$p{"\40"}}="\40";print
@{[map{my$o= $p{"\40"};@{[map{(($o=$p{$o})x$_)}map{ord($_)-(ord(
"\40")*3 )-1}split//]},"\n"}split/n/,"uaqbnfdgcebcccbnebe"
."bcecc" ."gbndbeb" ."cbibi" ."bncdg" ."dcbib"
."nbbna" ."bnaaua" ."ubndd" ."ccgce" ."debcb"
."ncbeb" ."ebcbeb"
."cbebc" ."cnbbeb"
."ebcbebcbebcbcbnab"
."ebebecebebcbeb"
."na"]};# amen
This
use strict;my%p=
("\40"=>chr(ord("\40"
)*3-1).chr(ord("\40")+ord("\40")/4+7));$p{$p{"\40"}}="\40";print
@{[map{my$o= $p{"\40"};@{[map{(($o=$p{$o})x$_)}map{ord($_)-(ord(
"\40")*3 )-1}split//]},"\n"}split/n/,"uaqbnfdgcebcccbnebe"
."bcecc" ."gbndbeb" ."cbibi" ."bncdg" ."dcbib"
."nbbna" ."bnaaua" ."ubndd" ."ccgce" ."debcb"
."ncbeb" ."ebcbeb"
."cbebc" ."cnbbeb"
."ebcbebcbebcbcbnab"
."ebebecebebcbeb"
."na"]};# amen
This