이러한 문제는이 붙여 cut'n 에서 확대 ASCII 아트 하지만 반전 하여, PetSCII 계 반 블록 문자를 :

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

따라서 목표는 1/2제출 된 ascii-art 를 줄이는 것입니다 . 샘플의 경우 문자열에서 :

 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문자에 의해 바이트 단위가 아닌 문자 로 계산됩니다 . 즉 , 52 문자가 아닌 20 문자를 s=' ▝▘▀▗▐▚▜▖▞▌▛▄▟▙█'계산하십시오 !!
  • -10 설명을 위해;
  • +20 외부 글꼴 도구 또는 라이브러리 사용

GolfScript (90 자)

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

이 중 많은 부분이 거친 배열을 처리합니다. 불쾌한 테스트 사례 :

xx
xxx
xxx
xx
x

는 문자가 포함 된 4 개의 셀 중 하나만 포함 된 3 개의 서로 다른 2x2 격자를 포함합니다.

설상가상으로는 zip쌍으로 열을 절단하는 전위는 동일한 출력 제공 을위한을 ["xx" "xxx"]zip하고 ["xxx" "xx"]zip. 따라서 모든 줄의 길이가 동일하고 짝수 개의 줄이 있는지 확인하기 위해 채우기를 시작합니다.

이 프로그램은 인터프리터가 "▗▖▄▝▐▞▟▘▚▌▙▀▜▛█"를 길이가 48자인 문자열로 취급한다고 가정합니다. 질문의 지시에 따라 16 자로 계산합니다. 더하기 구분 기호.

이 기능을 최대한 활용하여 테스트했지만 실제로 해당 문자를 올바르게 렌더링하는 고정 폭 글꼴을 찾을 수 없습니다.

Perl 6 , 159 자 (192 바이트)

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

온라인으로 사용해보십시오!

배쉬 (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

펄 (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";
}