ความท้าทายนี้เป็นcut'n วางจากขยายศิลปะ ASCIIแต่ตรงกันข้ามโดยใช้PetSCIIตามครึ่งบล็อกตัวอักษร:

string=" ▝▘▀▗▐▚▜▖▞▌▛▄▟▙█"

ดังนั้นเป้าหมายคือการลด1/2ยื่นascii-ศิลปะ ตัวอย่างจากสตริง:

 OOOOOO  OOOOOO  OOOOOO  OOOOOOO      OOOOOO   OOOOOO  OO      OOOOOOO 
OO      OO    OO OO   OO OO          OO       OO    OO OO      OO      
OO      OO    OO OO   OO OOOOO       OO   OOO OO    OO OO      OOOOO   
OO      OO    OO OO   OO OO          OO    OO OO    OO OO      OO      
 OOOOOO  OOOOOO  OOOOOO  OOOOOOO      OOOOOO   OOOOOO  OOOOOOO OO      

คุณต้องแสดงผล:

 ▟▀▀▘▟▀▀▙▐▛▀▙▐▛▀▀  ▗▛▀▀ ▟▀▀▙▐▌  ▐▛▀▀ 
 █   █  █▐▌ █▐▛▀   ▐▌ ▜▌█  █▐▌  ▐▛▀  
 ▝▀▀▘▝▀▀▘▝▀▀▘▝▀▀▀   ▀▀▀ ▝▀▀▘▝▀▀▀▝▘   

(หรือแม้กระทั่ง:

▗▛▀▀▗▛▀▜▖█▀▜▖█▀▀▘  ▟▀▀▘▗▛▀▜▖█   █▀▀▘ 
▐▌  ▐▌ ▐▌█ ▐▌█▀▘   █ ▝█▐▌ ▐▌█   █▀▘  
 ▀▀▀ ▀▀▀ ▀▀▀ ▀▀▀▘  ▝▀▀▘ ▀▀▀ ▀▀▀▘▀    

;-)

หรือที่ไหนท่อ:

wget -O - https://codegolf.stackexchange.com/q/19123/9424 |
    sed -ne '/<pre><code>/,/<\/code><\/pre>/{//{/\//q};s/<pre><code>//;p}'
   ('l2v2l6v2'+  'e1l1v3l2'+
 'v3e1v7e1v7e1v7e1l2v6e1l4v5'+
'e1l6v4e1l8v3e1l7l3v2e1l9l3v1')
 .replace(/[lve]\d/g,function
   (c){return Array(-~c[1]).
      join({l:' ',v:'Love'
         ,e:'\n'}[c[0
             ]])})

สามารถให้:

▗▟█████▙▟█████▄
▜█████████████▛▘
 ▝▀███▙▛█████▀ 
    ▝▀▜██▀▘

ตัวอย่างบางส่วน:

ด้วยกฎเดียวกัน (โดยประมาณ):

• อินพุตจาก STDIN หรือไฟล์
• แต่ละตัวอักษรยื่นจะต้องมีการแสดงเพียงช่องว่างจะต้องพักที่ว่างเปล่า
• นี่คือโค้ดกอล์ฟเช่นกันดังนั้นคะแนนต่ำสุดชนะ คะแนนคำนวณเป็น:
  • +1โดยตัวอักษรจะถูกนับเป็นตัวอักษรไม่ได้อยู่ในไบต์เช่น: s=' ▝▘▀▗▐▚▜▖▞▌▛▄▟▙█'นับ20ตัวอักษรไม่52 !
  • -10 สำหรับคำอธิบาย;
  • +20 สำหรับการใช้เครื่องมือฟอนต์หรือไลบรารีภายนอก

GolfScript (90 ตัวอักษร)

n/.,1&[""]*+.{,}%$-1=.1&+{1$,-´' '*+}+%2/{zip 2/{~+0\{32=!1$++}/" ▗▝▐▖▄▞▟▘▚▀▜▌▙▛█"3/=}%n}%

ส่วนใหญ่จะเป็นการจัดการกับอาร์เรย์ที่ขาดการใช้งาน กรณีทดสอบที่น่ารังเกียจ:

xx
xxx
xxx
xx
x

มี 2x2 กริดที่ต่างกัน 3 เซลล์โดยมีเพียงหนึ่งใน 4 เซลล์ที่มีอักขระใด ๆ เลย

เพื่อให้สิ่งที่แย่กว่านั้นคือzipการขนย้ายไปสับคอลัมน์ที่เป็นคู่จะช่วยให้การส่งออกเดียวกันสำหรับและ["xx" "xxx"]zip ["xxx" "xx"]zipฉันจึงเริ่มต้นด้วยการขยายเพื่อให้แน่ใจว่าทุกเส้นมีความยาวเท่ากันและมีจำนวนเส้นเท่ากัน

โปรดทราบว่าโปรแกรมนี้อนุมานว่าล่ามจะถือว่า "▗▖▄▝▐▞▟▘▚▌▙▀▜▛█" เป็นสตริงที่มีความยาว 48 ถึงแม้ว่าตามคำแนะนำในคำถามฉันจะนับเป็น 16 ตัวอักษร บวกตัวคั่น

ฉันได้ทดสอบสิ่งนี้อย่างสุดความสามารถของฉัน แต่ฉันไม่สามารถหาแบบอักษร monospace ที่ทำให้ตัวละครเหล่านั้นถูกต้อง

Perl 6 , 159 ตัวอักษร (192 ไบต์)

(|lines.map(*~' '),'')».comb(/../).rotor(2).map:{my@d='  'xx.max(*.elems);say [~] map {"█▛▜▀▙▌▚▘▟▞▐▝▄▖▗ ".comb[:2(.trans([' ',/./]=>~⑩))]},[Z~] .map:{|$_,|@d}}

ลองออนไลน์!

Bash (203 ตัวอักษร)

#!/bin/bash
r=" ▝▘▀▗▐▚▜▖▞▌▛▄▟▙█";while IFS= read -r m;do IFS= read -r n;for((l=${#m}>${#n}?${#m}:${#n},i=0; i<l; i+=2)){
printf -ve %-2s "${n:i:2}" "${m:i:2}";e=${e//[^ ]/1};o+=${r:2#${e// /0}:1};};echo "$o";o=;done

หรือ

r=" ▝▘▀▗▐▚▜▖▞▌▛▄▟▙█"
while IFS= read -r m; do
    IFS= read -r n
    for ((l=${#m}>${#n}?${#m}:${#n},i=0; i<l; i+=2)) {
        printf -ve %-2s "${n:i:2}" "${m:i:2}"
        e=${e//[^ ]/1}
        o+=${r:2#${e// /0}:1}
    }
    echo "$o"
    o=
done

Perl (268 ตัวอักษร)

#!/usr/bin/perl -CS
use utf8;my $r=" ▝▘▀▗▐▚▜▖▞▌▛▄▟▙█";while(@v=split"",<>){@w=split"",<>;foreach my $i(0..$#v/2){($a,$b,$c,$d)=qw|0 0 0 0|;$a=1if$w[$i*2]=~/\S/;$b=1if$w[$i*2+1]=~/\S/;$c=1if$v[$i*2]=~/\S/;$d=1if$v[$i*2+1]=~/\S/;print substr($r,ord pack("b8",$d.$c.$b.$a),1);};print "\n";};

หรือ

#!/usr/bin/perl -CS
use utf8;
my $r = " ▝▘▀▗▐▚▜▖▞▌▛▄▟▙█";
while ( @v = split "", <> ) {
    @w = split "", <>;
    foreach my $i ( 0 .. $#v / 2 ) {
        ( $a, $b, $c, $d ) = qw|0 0 0 0|;
        $a = 1 if $w[ $i * 2 ] =~ /\S/;
        $b = 1 if $w[ $i * 2 + 1 ] =~ /\S/;
        $c = 1 if $v[ $i * 2 ] =~ /\S/;
        $d = 1 if $v[ $i * 2 + 1 ] =~ /\S/;
        print substr( $r, ord pack( "b8", $d . $c . $b . $a ), 1 );
    }
    print "\n";
}