Perl 5, 54 byte / 71 ký tự ASCII có thể in
Lưu ý: Đây là phiên bản thứ hai của câu trả lời này. Đối với phiên bản 64 byte / 95-char ban đầu sử dụng PHP và gzinflate (), hãy xem lịch sử của câu trả lời này .
Đây là phiên bản ASCII có thể in 71-char:
y/01/ #/,say for unpack'(B40)4',unpack u,'4I*`1`(JJI!$FFNRJU52HIJ0*))H'
Phiên bản 54 byte chứa các ký tự không in được, vì vậy tôi đang cung cấp nó dưới dạng kết xuất hex. Trên các hệ thống Unixish, bạn có thể sử dụng xxd -r
để biến kết xuất hex thành tập lệnh Perl có thể thực thi:
0000000: 792f 3031 2f20 232f 2c73 6179 2066 6f72 y/01/ #/,say for
0000010: 2075 6e70 6163 6b27 2842 3430 2934 272c unpack'(B40)4',
0000020: 27a4 a011 008a aaa4 1126 9aec aad5 54a8 '........&....T.
0000030: a6a4 0a24 9a27 ...$.'
Cả hai cần phải được chạy với perl -M5.010
để kích hoạt say
tính năng Perl 5.10+ . Họ sẽ tạo ra đầu ra sau:
(Được hiển thị dưới dạng ảnh chụp màn hình, vì chiều cao dòng lớn trên SE làm cho nghệ thuật ASCII trở nên xấu xí và khó đọc. Chữ thường "e" hơi khó xử, nhưng tôi tin rằng điều này đủ điều kiện để có thể đọc được, nếu chỉ như vậy.)
Thi thiên Nếu đầu ra của giải pháp ở trên cảm thấy quá tối giản đối với bạn, thì đây là biến thể 92 ký tự tạo ra đầu ra tương tự như giải pháp của Tomas :
y/01/ #/,say for unpack'(B56)*',unpack u,'CH!(`"(`"":,2``B``@GGDC\'(C#(YI!)("I)"2*,),`4,03D'
Đây là một ảnh chụp màn hình:
Pps. Tôi khá chắc chắn này ( GolfScript, 51 ký tự ) là giải pháp in-ASCII ngắn nhất, nếu bạn không đếm những cái mà chỉ gọi biểu ngữ / FIGLet hoặc cheat trong một số cách khác:
'iJ@Q@HmURBIMM{JkUUJeMRAQIM'{2base(;{' #'=}/}%39/n*
Đầu ra giống như đối với giải pháp Perl 71 char của tôi ở trên.
bash
: 33 ký tự - pastebin.com/HZ1w8z8g Điều này có được chấp nhận không?