Perl-10个字符
这个解决方案是由BrowserUK在PerlMonks上提供尽管我已经从他发布的解决方案中删除了一些不必要的标点符号和空白。它是四个字符的二进制字符串上的按位“not”。
说“我爱你”
上面显示的字符表示二进制八位字节cd:cf:ce:cb,以及它们在ISO-8859-1和ISO-8859-15中的显示方式。
以下是十六进制的整个脚本,以及运行该脚本的示例:
$hexcat~/tmp/ten-stroke.pl73:61:79:7e:22:cd:cf:ce:cb:22$perl-M5.010~/tmp/ten-stroke.pl2014
更新:Perl(无高位)-14个字符更改为使用
说“RPQT”
这在两个四字符字符串上使用按位“or” 说“RPQT”
而不是和 打印"````"
根据@PeterTaylor的评论(即四个反勾号).这不仅能刮掉胡子
$~/tmp/4urteen冲程.pl73:61:79:27:60:60:60-60:27:5e:52:50:51:54$perl-M5.010~/tmp/fourteen-stroke.pl2014
(我最初有二其他字符,它在以下位置添加了一个吸引人的换行符串这个的结尾另一种方式,需要在打印
和RPQT公司
分开这个输出代币.@多姆·黑斯廷斯指出,通过切换它们,我可以拯救一个角色。)
Perl-16(甚至14)字符
打印“```^RPQT
对两个四字符字符串使用按位“or”“RPQT”
和"````"
.
您可以使用死亡
而不是打印
然而,这将导致输出到STDERR而不是STDOUT,并且输出将以错误的行号作为后缀。所以我将其归类为作弊。
(我最初使用的是另一种方式的两个字符串,这两个字符串之间需要空白打印
和RPQT公司
分开代币@Dom Hastings指出,通过切换它们,我可以保存一个角色。)