Tallying은 기본 5에서 작동하는 간단한 카운팅 시스템입니다. 전 세계에서 사용되는 다양한 키잉 시스템이 있지만 대부분의 영어권 국가에서 사용되는 시스템은 아마도 세로선을 표시하여 가장 간단한 카운팅 단위입니다. 각 5 번째 마크는 4 개의 이전 컬렉션을 가로 질러 수평선을 표시합니다. 이렇게하면 탈리 마크가 5 개 그룹으로 묶어집니다 (빠른 계산이 더 쉬워집니다).

주어진 값까지 탈리 마크를 표시하는 프로그램을 작성하려고합니다. 그러나 5 번만 계산하는 것은 지루합니다! 따라서 프로그램은 다른 기준으로 키를 표시 할 수 있어야합니다.

입력

입력은 쉼표로 구분 된 하나 이상의 음이 아닌 정수 값입니다 (예 : 9또는 8,4). 첫 번째 숫자는 탈리에 의해 표시되어야하는 값입니다. 두 번째 값은 탈리의 기준입니다. 두 번째 값이 제공되지 않으면 밑 5를 사용하십시오 .

산출

출력은 ASCII 아트 탈리 마크로 표시된 입력 값이됩니다. 다음은 프로그램을 테스트 할 수있는 몇 가지 예입니다. 출력이 정확하게 일치해야합니다!

입력 : 12또는12,5

 | | | |   | | | |   | |
-+-+-+-+- -+-+-+-+-  | |
 | | | |   | | | |   | |

입력: 7,3

 | |   | |   |
-+-+- -+-+-  |
 | |   | |   |

입력: 4,2

 |   |
-+- -+-
 |   |

입력 : 6,1또는 6,10(앞 공백에주의)

 | | | | | |
 | | | | | |
 | | | | | |

또한베이스 1은 일관성이 없어야합니다. 세로선 만 사용해야합니다.

입력 된 값 중 하나가 0이면 출력 이 없어야합니다 (및 프로그램이 정상적으로 종료되어야 함).

규칙

• 이것은 code-golf 이므로 가장 짧은 올바른 구현 (바이트)이 이깁니다.
• 입 / 출력은 적절한 매체 (예 : stdin / stdout, file ...)에있을 수 있습니다.
• 입력이 여러 명령 행 인수의 형태이거나 대상 언어에 더 적합한 경우 공백 등으로 구분 될 수 있습니다.
• 출력에서 후행 줄 바꿈이 허용됩니다. 후행 공백은 없습니다. 이 규칙은 출력이있을 때만 (즉, 입력 된 값이 0 일 때) 적용되지 않습니다.
• 베이스가 입력되지 않은 경우 코드는 기본적으로베이스 5로 설정되어야합니다.

CJam 103 85 72 자

http://cjam.aditsu.net/ 에서 시도 하십시오 .

기발한

q","/(i:A\_,{~i}{;5}?:B_@*{(_{" |"*S"l"++AB/*AB%}{;MA}?\:J" |l""-+ "er\" |"*N+_J\+@2$+@J\+++"l"Ser}{;}?

공백이 있어야하는 공백에 대해 공백, 선 및 l을 가진 하나의 탈리 세트를 정의하여 작동합니다. 그런 다음 er (음역) 기능을 활용하여 두 번째 줄을 만듭니다. 가장 비효율적 인 부분은 1과 0의 특별한 경우를 처리하는 것입니다. 개선하면 편집합니다. 팁 : 두 번째 입력이 1이거나 무한대 또는 첫 번째 입력 +1과 같으므로 1과 같을 때 다시 정의하면 많은 작업이 절약됩니다.

쉼표로 구분하여 지금까지 가장 향상

l",":G/(i:A\_5a?~i:B_@*{(_" |":K*\{SG++AB/*AB%}{A}?\_KG+"-+ "er[\GSer_@@M]\K*N+*}{;}?

공간이 제한된 입력으로 지금까지 가장 개선되었습니다.

당연히 CJam은 공간이 제한된 입력을 위해 설계되었습니다. 입력을 20,3 대신 20 3에 배치하면 큰 이점이 있습니다.

ri:Aq_5s?S-i(_)A)?:B*{B(" |":K*STs++ABmd@@*_K"-+"er[\_@@M]\K*N+*TsSer}M?

파이썬 2 - 111 108 119 144 140 136 135 134 - 그것을 시도

좋아, 시도해 보자.

i=input()
n,b=[(i,5),i][i>[]]
o=b-1
a=[n,n%b][b>1]*' |'
m=(b>1)*n/b
s=(' |'*o+'  ')*m+a
print(s+'\n'+('-+'*o+'- ')*m+a+'\n'+s)*(b*n>0)

편집 : 나는 if n==0또는 출력이 없어야한다고 간과했습니다 b==0. 이 비용은 11 자입니다. :(

편집 : 좋아, 의견에 언급 된 두 번째 문제를 해결 한 후 내 솔루션은 기본적으로 BeetDemGuise의 문제로 수렴되었습니다.

세게 때리다, 239228199 189 188

여기 내 시도가 있습니다. 골프를 많이 할 수 있습니다.

참고 : 두 번째 줄은 2에서 5를 빼지 않고 비어 있으면 기본값을 설정합니다 $2!

n=$1
b=${2-5}
((n<1&b<1))&&exit
while ((n>b&b>1));do
n=$[n-b]
x+=\
y+=-
for i in `seq $[b-1]`;{
x+='| '
y+=+-
}
x+=\
y+=\
done
for j in `seq $n`;{
x+=' |'
y+=' |'
}
echo -e "$x\n$y\n$x"

파이썬 - 171 (143)

i=input();t,b=i if[0]<i else(i,5);b=[b,t+1][b==1];l,d,m,o=' |',t/b,t%b,b-1;r=(l*o+'  ')*d+l*m
if t*b>0:print r,'\n',('-+'*o+'- ')*d+l*m,'\n',r

이 프로그램은 매우 간단합니다.

• 입력을 받고에 포장을 풀어보십시오 t,b. 실패하면 올바른 값을 지정하십시오.
• 밑이 1이면 값을 모든 세로선을 쉽게 처리 할 수있는 값으로 변경하십시오 ( t+1).
• 일부 변수를 설정하고 Tallies의 하단 및 상단 섹션을 만듭니다.
• 두 경우 탈리을 인쇄 t하고 b비 제로입니다.

편집 1 : 사용 input하는 대신 기능을raw_input 약간의 재생 후 .

편집 2 : 제로가 아닌 확인으로 작은 버그를 지적한 Falko에게 감사드립니다. 이제 우리 코드는 기본적으로 동일하며 변수 이름과 작은 논리가 적습니다.

편집 3 : 파이썬이 시퀀스와 다른 유형을 비교하는 방법 덕분에 ia list와 비교 하여 더 짧은 버전의 try...except블록 을 얻을 수 있습니다 .

ungolfed 버전은 다음과 같습니다.

i=input()

# If True, `i` must be a list
if [0]<i:
    t,b=i
# Otherwise, we know its a number (since `list` comes after `int` lexicographically.)
else:
    b=5
    t=i

b = b if b==1 else t+1
l=' |'
d=t/b
m=t%b
o=b-1

r=(l*o+'  ')*d+l*m
if t and b:
    print r,'\n',('-+'*o+'- ')*d+l*m,'\n',r

자바, 343

class C{public static void main(String[]a){long n=new Long(a[0])+1,b=a.length>1?new Long(a[1]):5;if(b>0){if(b<2)b=(int)2e9;int i;for(i=1;i<n;i++)p(i%b>0?" |":"  ");p("\n");for(i=1;i<n-n%b;i++)p(i%b>0?"-+":"- ");if(n>b)p("- ");for(i=1;i<n%b;i++)p(" |");p("\n");for(i=1;i<n;i++)p(i%b>0?" |":"  ");}}static void p(String s){System.out.print(s);}}

덜 골프 :

class C {
  public static void main(String[] a) {
    long n=new Long(a[0])+1, b=a.length>1 ? new Long(a[1]) : 5;
    if(b>0) {
      if(b<2) b=(int)2e9; // if the base is 1, pretend the base is 2 billion
      int i;
      for(i=1;i<n;i++) p(i%b>0 ? " |" : "  ");
      p("\n");
      for(i=1;i<n-n%b;i++) p(i%b>0 ? "-+" : "- ");
      if(n>b) p("- ");
      for(i=1;i<n%b;i++) p(" |");
      p("\n");
      for(i=1;i<n;i++) p(i%b>0 ? " |" : "  ");
    }
  }
  static void p(String s) {
    System.out.print(s);
  }
}

펄- 167 165 156

my($n,$b)=($ARGV[0]=~/(\d+)(?:,(\d+))?/,5);print$b>1?map{join(" ",($_ x($b-1))x int($1/$b)," | "x($1%$b))."\n"}(" | ","-+-"," | "):join" ",("---")x$1if$1*$b

언 골프

my($n,$b) = ($ARGV[0] =~ /(\d+)(?:,(\d+))?/, 5);
print($b>1 ?
    map{ 
        join(" ",($_ x ($b-1)) x int($1/$b)," | " x ($1%$b))."\n"
    } (" | ","-+-"," | ") :
    join " ", ("---") x $1
) if $1 * $b

C-193

정말 죄송합니다 1의 특별한 경우를 다루는 것은 약간의 나쁜 해킹이므로 더 나은 접근 방식으로 더 골프를 칠 수 있다고 생각합니다. 또한이 코드에는 출력 시작 부분에 줄 바꿈이 포함되어 있으므로이 코드가 허용되지 않으면 알려주십시오.

물론, 아주 못생긴 표정은 항상 도움을줍니다 :)

문자 수에는 필요한 공백과 줄 바꿈 만 포함됩니다.

#define P printf(
#define L P" |")
#define A P"\n");for(i=0;i<a;)b==1?i++,L:i++&&i%b==0?P
i;
main(a,b)
{
    scanf("%d,%d",&a,&b)<2?b=5:!b?a=0:a;
    if(a){
    A"  "):L;
    A"- "):a%b&&i>a/b*b?L:P"-+");
    A"  "):L;}
}

C # 271 바이트

가장 짧지는 않지만 입력으로 0을 수락해야하기 때문에 입력 판독 값을 골프로 칠 수 없었습니다.

using C=System.Console;class P{static void Main(){var L=C.ReadLine().Split(',');int t=int.Parse(L[0]),f=L.Length>1?int.Parse(L[1]):5,r=3,i;for(var R="";t*f>0&r-->0;C.WriteLine(R.TrimEnd()))for(R="",i=0;i<t;R+=r==1&i++<t-t%f?(i%f<1?"- ":"-|"):i%f<1?"  ":" |")f+=f<2?t:0;}}

형식화 된 코드 :

using C=System.Console;

class P
{
    static void Main()
    {
        var L=C.ReadLine().Split(',');
        int t=int.Parse(L[0]),f=L.Length>1?int.Parse(L[1]):5,r=3,i;

        for(var R="";t*f>0&r-->0;C.WriteLine(R.TrimEnd()))
            for(R="",i=0;i<t;R+=r==1&i++<t-t%f?(i%f<1?"- ":"-|"):i%f<1?"  ":" |")
                f+=f<2?t:0;
    }
}

루아 - 219 203 바이트

나는 "|"의 b 개의 복사본의 d 복사본을 만들고 "|"의 r 개의 복사본을 추가했습니다. 끝에. 어쩌면 나는 한 번에 하나씩 "|"를 문자열에 'tally up'시켜야했을 것 같은 느낌이 든다.

l=' |'s=string.rep _,_,a,b=io.read():find'(%d+)%D*(%d*)'b=tonumber(b)or 5 d=(a-a%b)/b f=b>1 and s(s(l,b-1)..'  ',d)g=b>1 and s(s('-+',b-1)..'- ',d)r=b>1 and a%b or a e=s(l,r)..'\n'print(f..e..g..e..f..e)

언 골프 :

l=' |'          --the base string
s=string.rep    --string.rep will be used a lot, so best shorten it

_,_,a,b=io.read():find'(%d+)%D*(%d*)' --reads a,b I'm probably way of the mark with this one

b=tonumber(b)or 5

d=(a-a%b)/b -- shorter than math.floor(a/b), d equal the vertical mark

f=b>1 and s(s(l,b-1)..'  ',d) or '' --creates d multiples of b multiples of "|" more or less
g=b>1 and s(s('-+',b-1)..'- ',d)or''--same as above but with the middle "-+-"

r=b>1 and a%b or a --idk maybe i should set r before d(a- a%b )/b

e=s(l,r)..'\n'  -- makes the remainder string, notice that if b==1  then e will output all the "|" 

print(f..e..g..e..f..e) -- here's where the real magic happens!

견본:

c:\Programming\AnarchyGolfMine>lua test.lua
13,5
 | | | |   | | | |   | | |
-+-+-+-+- -+-+-+-+-  | | |
 | | | |   | | | |   | | |


c:\Programming\AnarchyGolfMine>lua test.lua
6,2
 |   |   |
-+- -+- -+-
 |   |   |


c:\Programming\AnarchyGolfMine>lua test.lua
18,1
 | | | | | | | | | | | | | | | | | |
 | | | | | | | | | | | | | | | | | |
 | | | | | | | | | | | | | | | | | |

자바 스크립트 (193)

지나치게 복잡 할 수 있습니다.

s=prompt().split(",");a=+s[0];b=s[1];b=b?+b:5;o=b>1;v=" | ";q=w="";for(g=~~(a/b),c=o?a-g:a;g+1;g--,q+=" ",w+=" ")for(i=o;c&&i<b;i++)c--,q+=v,w+=g&&o?"-+-":v;if(a&&b)console.log(q+'\n'+w+'\n'+q)

댓글 버전

s=prompt().split(",");
a=+s[0];
b=s[1];
b=b?+b:5;   // convert b to int and default to 5
o=b>1;      // special handling for b0 and b1
v=" | ";
q=w="";
// calculate number of lines and number of groups
for(g=~~(a/b),c=o?a-g:a;g+1;g--,q+=" ",w+=" ")
    for(i=o;c&&i<b;i++)
        c--,  // decrease line count
        q+=v,
        w+=g&&o?"-+-":v; // use " | " for last group and "-+-" for others
if(a&&b) // handle b0
    console.log(q+'\n'+w+'\n'+q)

파이썬 - 127 (123) (122)

약간 짧은 파이썬 버전으로 몰래 들어가십시오.

편집 : 고정 0은 아무것도 인쇄하지 않고 다시 트리거하여 같은 길이로 끝났습니다.

k=input()
k=i,j=((k,5),k)[k>[]]
for m in[' |','-+',' |']*all(k):
 print(m*(j-1)+m[0]+' ')*(i/j*(j>1))+' |'*(i%(j+(j<2)*i))

C (207 자)

바로 앞의 줄 바꿈 exit은 가독성을위한 것입니다.

#define P printf(
#define t(v)for(a=c;b<=a;a-=b)a-c&&P" "),P v+1),q(b,v);q(a," |");P"\n");
q(n,c){while(n--)P c);}a;b;c;main(){scanf("%d,%d",&c,&b)<2?b=5:0;b&&c||
exit();b==1?b=32767:0;t("| ")t("+-")t("| ")}

scanfAllbeert에서 도난당한 shamelessy. 이 솔루션은 존재하지 않는 프로토 타입을 적용하려고 시도하므로 gcc로 컴파일되지 않습니다 exit. 다음과 같이 작동하는 C 컴파일러로 컴파일하십시오.tcc . 또한이 기능은 64 비트 플랫폼에서 작동하거나 작동하지 않을 수 있습니다. 주의해서 사용하십시오.

다음은이를 기반으로하는 원래 ungolfed 구현입니다.

#include <stdio.h>
#include <stdlib.h>

static void
tally_line(int base, int count, const char *str)
{
     int follower = 0, i;

     /* full tallies first */
     for (; count >= base; count -= base) {
          if (follower++)
               putchar(' ');

          /* only print second character */
          printf(str + 1);

          for (i = 0; i < base; i++)
               printf(str);
     }

     /* partial tally */
     for (i = 0; i < count; i++)
          printf(" |");

     /* newline */
     puts("");
}

extern int
main(int argc, char **argv)
{
     int base, count;

     /* do away with program name */
     count = atoi(*++argv);

     base = argc - 3 ? 5 : atoi(*++argv);

     /* remove 0 later */
     base | count || exit(0);

     /* a crossed-out tally never appears for large numbers */
     if (base == 1)
          base = 32767;

     tally_line(base, count, "| ");
     tally_line(base, count, "+-");
     tally_line(base, count, "| ");

     return (EXIT_SUCCESS);
}

파이썬 (2) , 134 (126) 123 114 바이트

lambda i,j=5,a=" |":"\n".join(("",(a*~-j+"  ","-+"*~-j+"- ")[x%2]*(i/j))[j>1]+a*(i,i%j)[j>1]for x in(0,1,2)if i*j)

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

어쨌든 가야 할 것이지만 재미있는 질문입니다. 가입 후 배운 몇 가지 트릭을 시험해 볼 기회.