Tulis program atau fungsi yang, diberi bilangan bulat positif sebagai input, menampilkan representasi bilangan bulat itu dalam angka Maya .

Angka Maya

Angka Maya adalah sistem vigesimal (basis 20) hanya menggunakan 3 simbol:

• < >for Zero (Simbol yang benar adalah semacam shell yang tidak dapat dengan mudah direpresentasikan menggunakan ASCII).
• .untuk Satu
• ----untuk Lima

Bilangan ditulis secara vertikal dalam kekuatan 20, dan angka antara 0 dan 19 ditulis sebagai tumpukan balita dan satu . Anda harus merujuk ke artikel Wikipedia untuk lebih jelasnya.

Sebagai contoh, berikut adalah angka antara 0 dan 25, dipisahkan dengan koma:

                                                                                 .    ..  ...  ....
                                                        .    ..  ...  .... ---- ---- ---- ---- ----  .    .    .    .    .    .
                               .    ..  ...  .... ---- ---- ---- ---- ---- ---- ---- ---- ---- ----
<  >, .  , .. ,... ,....,----,----,----,----,----,----,----,----,----,----,----,----,----,----,----,<  >, .  , .. ,... ,....,----

Input

• Input selalu bilangan bulat positif antara 0 dan 2147483647 (2 ^ 31 - 1).
• Anda dapat mengambil input dari STDIN, sebagai argumen baris perintah, parameter fungsi atau yang serupa.

Keluaran

• Setiap baris paling panjang 4 karakter. < >dan ----harus selalu dicetak seperti yang diberikan di sini (masing-masing 4 karakter).
• Yang ( .) harus dipusatkan pada garis. Jika ada 1 atau 3 ., karena penyelarasan horizontal sempurna tidak mungkin, tidak masalah apakah mereka satu kolom ke kiri atau satu kolom ke kanan atau tengah.

• Pasti ada satu garis kosong di antara kekuatan 20 yang berbeda, terlepas dari ketinggian tumpukan di kekuatan 20-an. Misalnya, output yang benar untuk 25 dan 30 adalah:

          .
   .
         ----
  ----   ----
  

• Tidak ada garis depan atau belakang yang diizinkan.

• Keluaran harus dicetak persis seperti dalam contoh yang diberikan.

Uji kasus

• Setiap angka individual antara 0 dan 25 diberikan seperti contoh di atas.

• Memasukkan: 42

Keluaran:

 .. 

 .. 

• Memasukkan: 8000

Keluaran:

 .  

<  >

<  >

<  >

• Memasukkan: 8080

Keluaran:

 .  

<  >

....

<  >

• memasukkan: 123456789

Keluaran:

 .  

... 
----
----
----

 .  
----
----

 .. 
----
----

 .  

....
----
----
----

....
----

• Memasukkan: 31415

Keluaran:

... 

... 
----
----
----

----
----

----
----
----

• Memasukkan: 2147483647

Keluaran:

 .  

... 
----
----

 .  
----
----

 .  

----
----
----

....
----

 .. 

 .. 
----

Mencetak gol

Ini adalah kode-golf , jadi kode terpendek dalam byte menang.

Pyth, 41 byte

j+bbm|jb_m.[\ 4kc:*d\.*5\.*4\-4"<  >"jQ20

Cobalah online: Demonstrasi

Penjelasan:

                                     jQ20   convert input to base 20
    m                                       map each value d to:
                  *d\.                         string of d points
                 :    *5\.*4\-                 replace 5 points by 4 -s
                c             4                split into groups of 4
         m.[\ 4k                               center each group
        _                                      invert order
      jb                                       join by newlines
     |                         "<  >"          or if 0 use "<  >"
j+bb                                        join by double newlines

Perl, 125 117 byte

$-=<>;{$_=($-%20?(""," .
"," ..
","...
","....
")[$-%5]."----
"x($-/5&3):"<  >
").$_;($-/=20)&&($_=$/.$_,redo)}print

Terima kasih kepada Dom Hastings karena membantu saya menghemat 8 byte.

JavaScript ES6, 143 byte

Banyak byte yang ditambahkan karena perlu console.log, bisa menghemat 23 byte lainnya tanpa itu.

n=>console.log((d=(x,s='',l=1,j=x/l|0)=>s+(j>19?d(x,s,l*20)+`

`:'')+((j=j%20)?(' '+`.`.repeat(j%5)).slice(-4)+`
----`.repeat(j/5):'<  >'))(n))

Mathematica 185 182 171 153

Dengan 18 byte yang disimpan berkat saran Arcinde untuk menggunakan fungsi anonim,

c=Column;c[If[#>0,{q,r}=#~QuotientRemainder~5;c@{{""," ."," .."," ...","...."}[[r+1]],c@{{""},{d="----"},{d,d},{d,d,d}}[[q+1]]},"< >"]&/@#~IntegerDigits~20]&

Contoh

c[If[# > 0, {q, r} = #~QuotientRemainder~5; c@{{"", " .", " ..", " ...", "...."}[[r + 1]], c@{{""}, {d = "----"}, {d, d}, {d, d, d}}[[q + 1]]}, "< >"] & /@ #~IntegerDigits~20] &[31415]

Memeriksa

Angka desimal, 31415, dinyatakan dalam basis 20. Mathematica menggunakan huruf kecil untuk ini.

BaseForm[31415, 20]

Digit desimal sesuai dengan angka 20 basis di atas.

IntegerDigits[31415,20]

{3, 18, 10, 15}

Contoh lain

IntegerDigits[2147483607, 20]

{1, 13, 11, 1, 15, 9, 0, 7}

c[If[# > 0, {q, r} = #~QuotientRemainder~5;c@{{"", " .", " ..", " ...","...."}[[r + 1]], c@{{""}, {d = "----"}, {d, d}, {d, d, d}}[[q + 1]]},"< >"] & /@ #~IntegerDigits~20] &[2147483607]

JavaScript (ES6), 157 byte

Baris baru signifikan dan dihitung sebagai masing-masing 1 byte. Karena pencetakan ke STDOUT diperlukan, console.logsaya perlu beberapa byte di sana.

f=i=>console.log([...i.toString(20)].map(j=>(!(j=parseInt(j,20))||j%5?[`<  >`,` .`,` ..`,`...`,`....`][j%5]+`
`:'')+`----
`.repeat(j/5)).join`
`.slice(0,-1))

Demo

Untuk tujuan demonstrasi, saya akan menulis versi ES5 sehingga berfungsi di semua browser:

// Snippet stuff
console.log = function(x) {
  O.innerHTML = x;
}
document.getElementById('I').addEventListener('change', function() {
  f(this.valueAsNumber);
}, false);

// Actual function
f = function(i) {
  console.log(i.toString(20).split('').map(function(j) {
    return (! (j = parseInt(j, 20)) || j % 5 ? ['<  >', ' .', ' ..', '...', '....'][j % 5] + '\n' : '') + '----\n'.repeat(j / 5);
  }).join('\n').slice(0,-1));
}

<input type=number min=0 max=2147483647 value=0 id=I>

<pre><output id=O></output></pre>

Python 2.x, 142 byte:

def m(n):
 h=[[""," "*(2-n%5/2)+"."*(n%5)+"\n"][n%5!=0]+"----\n"*(n%20/5),"<  >\n"][n%20==0]
 n/=20
 if n>0:
  h=m(n)+"\n\n"+h
 return h[:-1]

Contoh:

>>> print m(2012)
----

<  >

 ..
----
----
>>> 

Edit: trailing line ...

CJam, 82 76 byte

li{_K%[""" .
"" ..
""...
""....
"]1$5%='-4*N+2$5/3&*+"<  >
"?N+L+:L;K/}h;L);

Program CJam pertama saya, pada dasarnya hanya transliterasi dari jawaban Perl saya ke CJam.

Coba online

Banyak baris dengan komentar:

li            # read input
{             # start of do-while loop
  _K%         # check if this base-20 digit is a zero
    [""" .
    "" ..
    ""...
    ""....
    "]1$5%=   # push dots for 1s onto stack
    '-4*N+2$5/3&*+    # push lines for 5s onto stack

    "<  >
    "         # push zero on stack
  ?           # ternary if test (for digit equals zero)
  N+L+:L;     # pre-concatenate string with output plus newline
  K/          # divide by 20
}h            # end of do while loop
;L);          # push output string on stack, chop off trailing newline

PHP, 220 byte

Pendekatan yang sama dengan jawaban JavaScript saya. PHP memiliki fungsi bawaan untuk semuanya.

Mengambil 1 input dari baris perintah (yaitu STDIN), seperti yang terlihat dengan $argv[1]:

<?=rtrim(implode("\n",array_map(function($j){return(!($j=base_convert($j,20,10))||$j%5?['<  >', ' .', ' ..', '...', '....'][$j%5]."\n":'').str_repeat("----\n",$j/5);},str_split(base_convert($argv[1],10,20)))));

C - 149

f(v){v/20&&(f(v/20),puts("\n"));if(v%=20)for(v%5&&printf("%3s%s","...."+4-v%5,v/5?"\n":""),v/=5;v--;v&&puts(""))printf("----");else printf("<  >");}

Menggunakan rekursi untuk mencetak angka paling signifikan terlebih dahulu. Kemudian mencetak nol atau mencetak semua titik dengan satu pintar printf dan semua balita dalam satu lingkaran. Saya tidak yakin apakah saya bisa menghindari menggunakan if-else di sini.

Kelemahan dari printf pintar adalah bahwa 1 dan 3 tidak selaras satu sama lain:

Hasil untuk 23 adalah:

  .

...

119 solusi yang salah - mengikuti baris baru

f(v){v/20&&(f(v/20),puts(""));if(v%=20)for(v%5&&printf("%3s\n","...."+4-v%5),v/=5;v--;)puts("----");else puts("<  >");}

PHP, 202 192 byte

function m($n){return(($c=($n-($r=$n%20))/20)?m($c)."\n":"").
($r?(($q=$r%5)?substr(" .   .. ... ....",$q*4-4,4)."\n":"").
str_repeat("----\n",($r-$q)/5):"<  >\n");}
echo rtrim(m($argv[1]),"\n");

Ia mendapat input dari argumen baris perintah pertama.

Kode sumber lengkap, dengan komentar dan tes, tersedia di github .

Python 2, 114 byte

Jawaban ini didasarkan pada jawaban Pyth Jakube dan jawaban Python 2 Locoluis.

def f(n):d,m=divmod(n%20,5);h=[" "*(2-m/2)+"."*m+"\n----"*d,"<  >"][n%20<1];n/=20;return(f(n)+"\n\n"if n else"")+h

Jelly , 50 49 47 byte

b5µṪ”.x⁶;$L<3Ɗ¡ṭ⁾--;UW¤ẋ$Ẏ$L¡Ṛø“<  >”WµẸ?
b20Ç€

Cobalah online!

... sekarang dibiarkan selaras berkat poin user202729.

_{Ketika Anda menipu diri sendiri untuk berpikir < >adalah palindrom ...}