Tallying to prosty system liczenia, który działa w bazie 5. Na całym świecie stosuje się różne różne systemy liczenia, ale ten, który jest używany w większości krajów anglojęzycznych, jest być może najprostszy - zliczanie jednostek poprzez oznaczenie linii pionowych, a następnie każdy piąty znak przekreśla poziomą linię przez poprzedni zbiór czterech. To grupuje znaczniki w grupach po 5 (i ułatwia ich szybkie liczenie).

Zamierzasz napisać program, który wyświetla znaczniki do określonej wartości. Ale liczenie tylko w bazie 5 jest nudne! Dlatego twój program powinien także być w stanie wyświetlać dane statystyczne w różnych bazach.

Wejście

Dane wejściowe będą jedną lub dwie nieujemne wartości całkowite oddzielone przecinkiem (np. 9Lub 8,4). Pierwsza liczba to wartość, która powinna być wyświetlana przez licznik. Druga wartość jest podstawą sumy. Jeśli nie podano drugiej wartości, użyj podstawy 5 .

Wynik

Wyjściową wartością będzie wprowadzona wartość reprezentowana jako znaczniki artystyczne ASCII. Oto kilka przykładów, z którymi możesz przetestować swój program - wyniki powinny dokładnie do nich pasować!

Dane wejściowe: 12lub12,5

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

Wejście: 7,3

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

Wejście: 4,2

 |   |
-+- -+-
 |   |

Wejście: 6,1lub 6,10(zauważ spacje wiodące)

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

Należy również zauważyć, że podstawa 1 ma być niespójna - należy stosować tylko pionowe linie.

Jeśli jedna z wprowadzonych wartości wynosi 0, nie powinno być żadnych wyników (a twój program powinien zakończyć się z wdziękiem).

Zasady

• To jest golf golfowy , więc wygrywa najkrótsza poprawna implementacja (w bajtach).
• Wejście / wyjście może być na dowolnym odpowiednim nośniku (np. Stdin / stdout, plik ...).
• Dane wejściowe mogą mieć postać wielu argumentów wiersza polecenia lub być oddzielone spacjami itp., Jeśli są bardziej odpowiednie dla języka docelowego.
• Końcowe znaki nowej linii są dozwolone w danych wyjściowych. Końcowe spacje nie są. Ta reguła ma zastosowanie tylko wtedy, gdy istnieje wyjście (tj. Nie wtedy, gdy wprowadzona wartość wynosi 0).
• Twój kod musi być ustawiony domyślnie na base 5, gdy nie wprowadzono żadnej bazy.

CJam 103 85 72 znaki

Wypróbuj na http://cjam.aditsu.net/ .

oryginalny

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

Działa poprzez zdefiniowanie jednego zestawu wysokości ze spacjami, liniami i l dla spacji, które powinny pozostać spacjami. Następnie korzysta z funkcji er (tranliteracji), aby utworzyć drugą linię. Najbardziej nieefektywna część dotyczy przypadków specjalnych 1 i 0. Będę edytować, gdy go poprawię. Wskazówka Za długo zajęłam sobie sprawę: ponieważ drugie wejście to 1 jest takie samo jak nieskończoność lub pierwsze wejście +1, ponowne zdefiniowanie go, gdy jest równe 1, oszczędza dużo pracy.

najbardziej ulepszony jak dotąd z przecinkiem

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

jak dotąd ulepszony z wprowadzaniem rozdzielanym spacjami

Oczywiście, ponieważ CJam jest naprawdę zaprojektowany do wprowadzania danych rozdzielanych spacjami. Umieszczenie wkładu na 20 3 zamiast 20,3 to ogromna korzyść.

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

Python 2 - 111 108 119 144 140 136 135 134 134 - Spróbuj

Ok, spróbujmy:

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)

Edycja: Przeoczyłem, że nie powinno być żadnych wyników, jeśli n==0lub b==0. To kosztuje mnie 11 znaków. :(

Edycja: Ok, po naprawieniu drugiego problemu wymienionego w komentarzach moje rozwiązanie zasadniczo zbiegło się z rozwiązaniem BeetDemGuise.

Grzmotnąć, 239 228 199 189 188

Oto moja próba, może być dużo golfa.

Uwaga: drugi wiersz nie odejmuje 5 od 2, ustawia wartość domyślną, jeśli $2jest pusty!

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"

Python - 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

Program jest bardzo prosty:

• Uzyskaj dane wejściowe i spróbuj rozpakować t,b. Jeśli to się nie powiedzie, po prostu przypisz prawidłowe wartości.
• Jeśli podstawą była 1, zmień jej wartość na coś, co z łatwością poradzi sobie ze wszystkimi liniami pionowymi ( t+1).
• Ustaw niektóre zmienne i utwórz dolną i górną sekcję podsumowań.
• Wydrukować identyfikacyjne, gdy oba ti bsą niezerowe.

EDYCJA 1: Użyj inputfunkcji zamiast raw_inputpo zabawie.

EDYCJA 2: Dziękuję Falko za wskazanie małego błędu za pomocą mojej kontroli niezerowej. Teraz nasz kod jest w zasadzie identyczny, bez niektórych nazw zmiennych i pewnej małej logiki.

EDYCJA 3: Dzięki temu, jak Python porównuje sekwencje i różne typy , możemy porównać ido a, listaby uzyskać krótszą wersję naszego try...exceptbloku.

Oto wersja bez golfa:

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

Java, 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);}}

Mniej golfa:

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);
  }
}

Perl - 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

bez golfa

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

Tak mi przykro. Radzenie sobie ze specjalnym przypadkiem dla 1 było trochę kiepskim hackem, więc myślę, że można by to pograć w golfa przy lepszym podejściu. Ponadto ten kod zawiera nowy wiersz na początku danych wyjściowych, więc jeśli nie jest to dozwolone, daj mi znać.

Oczywiście bardzo brzydkie definicje zawsze pomagają :)

Liczba znaków obejmuje tylko niezbędne spacje i nowe linie.

#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 bajtów

Nie najkrócej, nie mogłem odczytywać odczytu wejściowego, ponieważ musiał zaakceptować 0 jako wejście.

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;}}

Sformatowany kod:

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;
    }
}

Lua - 219 203 bajtów

Poszedłem zrobić make d kopii b kopii „|”, a następnie dodać r kopii „|” na końcu. Czuję, że może powinienem był pójść z „podsumowaniem” „|” po strunie pojedynczo.

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)

bez golfa:

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!

Próba:

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


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


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

JavaScript (193)

To może być zbyt skomplikowane.

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)

Skomentowana wersja

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)

Python - 127 123 122

Po prostu wkradam się z nieco krótszą wersją Pythona.

edycja: Naprawiono 0, że nic się nie drukowało i rejestrator, skończyło się na tej samej długości

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 znaków)

Nowa linia tuż przed nią exitsłuży wyłącznie czytelności.

#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("| ")}

scanfbezwstydne użycie skradzione Allbeertowi. Zauważ, że to rozwiązanie nie kompiluje się z gcc, ponieważ próbuje wymusić nieistniejący prototyp exit. Skompiluj za pomocą działającego kompilatora C.tcc . Ponadto ta funkcja może, ale nie musi działać na platformach 64-bitowych. Używaj ostrożnie.

Oto oryginalna nie golfowa implementacja oparta na:

#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);
}

Python 2 , 134 126 123 114 bajtów

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)

Wypróbuj online!

Stare pytanie, które znam, ale i tak fajnie jest spróbować. Szansa na wypróbowanie kilku sztuczek, których nauczyłem się od czasu dołączenia.