วาดเส้นเวลา

23

กำหนดอินพุตของรายการจำนวนเต็มที่แทนวันที่เอาท์พุทไทม์ไลน์ศิลปะ ASCII ดังนี้:

<----------------------------->
  A     B  C           D    E

[1990, 1996, 1999, 2011, 2016]ระยะเวลาดังกล่าวข้างต้นคือการส่งออกสำหรับการป้อนข้อมูล บันทึกสิ่งต่าง ๆ เกี่ยวกับเส้นเวลา:

  • บรรทัดแรกของเอาต์พุตคือเครื่องหมายน้อยกว่า ( <), เครื่องหมายขีดคั่นจำนวนเท่ากับdateOfLastEvent - dateOfFirstEvent + 3(เพราะต้องเพิ่มหนึ่งรายการเพื่อรวมวันที่สุดท้าย, และอีกสองครั้งสำหรับการเติม) และเครื่องหมายมากกว่า ( >)

  • ในบรรทัดที่สองของการส่งออกแต่ละเหตุการณ์จะถูกวางที่ตำแหน่งdateOfEvent - dateOfFirstEvent + 2(สมมติว่าเป็นศูนย์การทำดัชนี) ดังนั้นเหตุการณ์ครั้งแรกถูกวางไว้ที่ตำแหน่ง2สองตัวอักษรไปทางขวาของและเหตุการณ์สุดท้ายคือในทำนองเดียวกันตัวละครทั้งสองด้านซ้ายของ<>

  • แต่ละเหตุการณ์จะแสดงด้วยตัวอักษร กิจกรรม 1 คือAกิจกรรม 2 คือBฯลฯ จะไม่มีเหตุการณ์เกิน 26 เหตุการณ์ คุณอาจใช้อักษรตัวพิมพ์เล็กหากคุณต้องการ

  • ไม่มีช่องว่างต่อท้าย ช่องว่างพิเศษที่อนุญาตเท่านั้นคือการขึ้นบรรทัดใหม่ที่ส่วนท้ายของโปรแกรม

นอกจากนี้

  • ไม่จำเป็นต้องให้เหตุการณ์ตามลำดับ วันที่จะยังคงติดป้ายตามตำแหน่งในอาเรย์ ตัวอย่างเช่นอินพุตของ [2, 3, 1, 5, 4]ต้องเอาต์พุต

    <------->
  CABED

  • คุณอาจได้รับเหตุการณ์หนึ่งเหตุการณ์หรือมากกว่านั้นเป็นอินพุต ตัวอย่างเช่นอินพุตของ[12345]ต้องเอาต์พุต

    <--->
  A

  • คุณอาจสันนิษฐานว่าข้อมูลที่ป้อนจะไม่มีวันที่ซ้ำกัน

อาจได้รับการป้อนข้อมูลเป็นทั้งอาร์เรย์ / รายการของจำนวนเต็ม / สตริงหรือสตริงเดียวคั่นด้วยอักขระที่ไม่ใช่ตัวเลขใด ๆ ช่วงที่อนุญาตของวันที่จะให้เป็น input 1 ≤ x ≤ 32767คือ

เนื่องจากนี่คือcode-golfรหัสที่สั้นที่สุดเป็นไบต์จะเป็นผู้ชนะ

กรณีทดสอบ:

32767 32715 32716 32750 32730 32729 32722 32766 32740 32762
<------------------------------------------------------->
  BC     G      FE         I         D           J   HA
2015 2014
<---->
  BA
1990 1996 1999 2011 2016
<----------------------------->
  A     B  C           D    E
2 3 1 5 4
<------->
  CABED
12345
<--->
  A
code-golf  ascii-art 
— ลูกบิดประตู
แหล่งที่มา

คำตอบ:

5

Pyth, 37 36 35 34 ไบต์

:*dlp++\<*\-+3-eJSQhJ">
"mhh-dhJQG

คำอธิบาย: (สำหรับการขึ้นบรรทัดใหม่นี้จะถูกแทนที่ด้วย\nเพื่อความเรียบง่าย)

:*dlp++\<*\-+3-eJSQhJ">\n"mhh-dhJQG

                                    - autoassign Q = eval(input())
                                    - G = "abcdefghijklmnopqrstuvwxyz"

    p++\<*\-+3-eJSQhJ">\n"          -    print out the first line

            +3-eJSQhJ               -        Get the number of dashes
                 SQ                 -            sorted(Q)
                J                   -           autoassign J = ^
               e                    -          ^[-1]
              -                     -         ^-V
                   hJ               -          J[0]
            +3                      -        ^+3

         *\-                        -       ^*"-"
      +\<                           -      "<"+^
     +               ">\n"          -     ^+"-->\n"
    p                               -    print(^)

 *dl                                -  work out the number of spaces to print
   l                                -   len(^)
 *d                                 -  ^*" "
:                                 G - For i in V: ^[i] = G[i]
                          mhh-dhJQ  -  Work out the positions of the characters
                          m      Q  -  [V for d in Q]
                               hJ   -     J[0]
                             -d     -    d-^
                           hh       -   ^+2

ลองที่นี่!

— สีน้ำเงิน
แหล่งที่มา
5

PowerShell, 120 108 ไบต์

param($a)$n,$m=($a|sort)[0,-1];"<$('-'*($b=$m-$n+3))>";$o=,' '*$b;$i=97;$a|%{$o[$_-$n+2]=[char]$i++};-join$o

ใช้อินพุต$aจากนั้นตั้งค่า$nและ$mเป็นค่าน้อยที่สุดและสูงสุดตามลำดับ เราส่งไทม์ไลน์ด้วยส่วนถัดไปโดยดำเนินการบล็อกโค้ด$(...)ภายในสตริงเพื่อสร้างจำนวน-อักขระที่เหมาะสม $iจากนั้นเราจะสร้างอาร์เรย์ของความยาวเดียวกันที่มีช่องว่างเพียงและการตั้งค่าตัวละครของเราเพื่อการส่งออก

จากนั้นเราจะห่วงผ่านการป้อนข้อมูลด้วย$a |%{...}แต่ละวงเราตั้งที่เหมาะสม$oคุ้มค่า ในที่สุดเราก็-join $oร่วมกันสร้างสตริง ตั้งแต่ที่เหลืออยู่บนไพพ์ไลน์เอาต์พุตจึงเป็นนัย

แก้ไขเพื่อลบ.TrimEnd()คำสั่งเนื่องจากอักขระสุดท้ายของ$oจะรับประกันว่าเป็นตัวอักษรเสมอ

ตัวอย่าง

PS C:\Tools\Scripts\golfing> .\draw-a-timeline.ps1 2015,2014,2000
<------------------>
  c             ba
— AdmBorkBork
แหล่งที่มา
4

C - 294 287 220 191 184 178 174 ไบต์

หลังจากจ้องมองด้วยรหัสที่ค่อนข้างบ้าฉันอย่างน้อยได้รับมันลงเล็กน้อย ...

หมายเหตุ: วงแรกที่มีความต้องการที่การดำเนินการของไบนารีให้ 0 เป็นผลมาจากในatoi() argv[0]หากไม่มีสิ่งนี้จะส่งผลให้มีการรวมไบนารี (ชื่อ) เป็นเหตุการณ์ ตัวอย่างที่ทำให้การใช้งานไม่ได้:

$ 42/program 1 2 3
# 42/program gives 42 from argv[0], fail.

$ 1program 3 2 9
# 1program gives 1 from argv[0], fail.

$ 842 3 2 9
# 842 gives 842 from argv[0], fail.

ไม่แน่ใจว่านี่เป็นข้อกำหนดที่ถูกต้องหรือไม่

char y[32769];n,m;main(i,a)char**a;{for(;n=atoi(a[--i]);y[n>m?m=n:n]=64+i);for(;!y[++i];);printf("<");for(n=i;i<=m;i+=printf("-"))!y[i]?y[i]=' ':0;printf("-->\n  %s\n",y+n);}

วิ่ง:

./cabed 32767 32715 32716 32750 32730 32729 32722 32766 32740 32762
<------------------------------------------------------->
  BC     G      FE         I         D           J   HA

./cabed 2 1 3 5 4
<------->
  BACED

./cabed 2016
<--->
  A

./cabed 130 155 133 142 139 149 148 121 124 127 136
<------------------------------------->
  H  I  J  A  C  K  E  D     GF     B

Ungolfed:

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

char y[32769]; /* Zero filled as it is in global scope. */
int n, m;

int main(i, a) 
    char**a; 
{
    /* Loop argv and set y[argv[i] as int] = Letter, (Event name).
     * Set m = Max value and thus last data element in y. */
    for ( ; n = atoi(a[--i]); y[n > m ? m = n : n] = 64 + i)
        ;

    /* i = 0. Find first element in y that has a value. (Min value.) */
    for (; !y[++i]; )
        ;

    printf("<");

    /* Save min value / y-index where data starts to n.
     * Print dashes until y-index = max 
     * Build rest of event string by filling in spaces where no letters.*/
    for (n = i; i <= m; i += printf("-"))
        !y[i] ? y[i] = ' ' : 0;

    printf("-->\n  %s\n", y + n);

    return 0;
}
— Runium
แหล่งที่มา
3

MATL , 40 41ไบต์

0lY2in:)GtX<-I+(t~32w(ctn45lbX"60hP62hcw

ลองออนไลน์!

0          % array initiallized to 0
lY2        % string 'ABC...Z'
in:)       % input array. Take as many letters as its length
GtX<-I+    % push input again. Duplicate, subtract minimum and add 3
(          % assign selected letter to those positions. Rest entries are 0
t~32w(     % replace 0 by 32 (space)
c          % convert to char
tn45lbX"   % duplicate, get length. Generate array of 45 ('-') repeated that many times
60hP62h    % prepend 60 ('<'), postpend 62 ('>')
c          % convert to char
w          % swap. Implicit display
— หลุยส์เมนโด
แหล่งที่มา
2

Ruby, 83 ตัวอักษร

->a{n,m=a.minmax
s=' '*(d=m-n+3)
l=?@
a.map{|i|s[i-n+2]=l.next!}
puts ?<+?-*d+?>,s}

วิ่งตัวอย่าง:

irb(main):001:0> ->a{n,m=a.minmax;s=' '*(d=m-n+3);l=?@;a.map{|i|s[i-n+2]=l.next!};puts ?<+?-*d+?>,s}[[32767,32715,32716,32750,32730,32729,32722,32766,32740,32762]]
<------------------------------------------------------->
  BC     G      FE         I         D           J   HA
— ผู้ชายที่ทำงาน
แหล่งที่มา
2

JavaScript (ES6), 124

l=>(l.map(v=>r[v-Math.min(...l)]=(++i).toString(36),r=[],i=9),`<-${'-'.repeat(r.length)}->
  `+[...r].map(x=>x||' ').join``)

ทดสอบ 

F=
l=>(l.map(v=>r[v-Math.min(...l)]=(++i).toString(36),r=[],i=9),`<-${'-'.repeat(r.length)}->
  `+[...r].map(x=>x||' ').join``)

console.log=x=>O.textContent+=x+'\n'

test= [[32767,32715,32716,32750,32730,32729,32722,32766,32740,32762],
[2015,2014],[1990,1996,1999,2011,2016],[2,3,1,5,4],[12345]]

test.forEach(x=>console.log(x+'\n'+F(x)+'\n'))
<pre id=O></pre>
ขยายตัวอย่างข้อมูล

— edc65
แหล่งที่มา
2

PHP, 129 126 125 121 117 115 ไบต์

ใช้การเข้ารหัส ISO 8859-1

$l=min([$h=max($z=$argv)]+$z)-3;echo~str_pad(Ã,$h-$l,Ò).~ÒÁõ;for(;$l<$h;)echo chr((array_search(++$l,$z)-1^32)+65);

ทำงานแบบนี้ ( -dเพิ่มเพื่อความสวยงามเท่านั้น):

php -r '$l=min([$h=max($z=$argv)]+$z)-3;echo~str_pad(Ã,$h-$l,Ò).~ÒÁõ;for(;$l<$h;)echo chr((array_search(++$l,$z)-1^32)+65);' 1990 1996 1999 2016 2011 2>/dev/null;echo

เวอร์ชันที่ไม่ถูกปรับแต่ง:

// Get the highest input value.
$h = max($z = $argv);

// Get the lowest value, setting the first argument (script name) to the highest
// so it is ignored.
$l = min([$h] + $z);

// Output the first line.
echo "<".str_repeat("-",$h - $l + 3).">\n  ";

// Iterate from $l to $h.
for(;$l <= $h;)
    // Find the index of the current iteration. If found, convert the numeric
    // index to a char. If not found, print a space.
    echo ($s = array_search($l++, $z)) ? chr($s+64) : " ";
  • ที่บันทึกไว้ 3 ไบต์โดยการพิมพ์ช่องว่างนำจากวงและการเปลี่ยนแปลงไป<=<
  • ที่บันทึกไว้ไบต์โดยใช้แทนstr_padstr_repeat
  • บันทึก 4 ไบต์โดยใช้ตรรกะ bitwise เพื่อแปลง 0 ( false) ถึง 32 และทุกอย่างที่สูงกว่า 0 ถึง 97 เป็นต้นไป จากนั้นแปลงตัวเลขนั้นเป็นถ่าน
  • ที่บันทึกไว้ 4 ไบต์โดยใช้เมื่อตะกี้ ASCII เพิ่มเติมแก่ผลผลิต<, -, >และขึ้นบรรทัดใหม่
  • บันทึก 2 ไบต์ด้วยการปฏิเสธสตริงหลังจากแพ็ดดิ้งแทนก่อน
— aross
แหล่งที่มา
1

Perl, 109 ไบต์

รวม +1 สำหรับ -p

$l=A;s/\d+/$h{$&}=$l++/ge;($a,$z)=(sort keys%h)[0,-1];$o.=$h{$_}//$"for$a..$z;$_='<'.'-'x($z-$a+3).">$/  $o"

ต้องการอินพุตใน stdin: ช่องว่างคั่นตัวเลข ตัวอย่าง:

$ echo 2016 2012 2013 | perl -p file.pl
<------->
  BC  A

ค่อนข้างอ่านได้:

$l=A;                                   # Intialize $l with the letter A
s/\d+/$h{$&}=$l++/ge;                   # construct %h hash with number->letter
($a,$z) = (sort keys %h)[0,-1];         # grab min/max numbers
$o .= $h{$_} // $" for $a..$z;          # construct 2nd line: letter or space
$_= '<' . '-' x ($z-$a+3) . ">$/  $o"   # construct 1st line, merge both lines to $_ output
— เคนนีย์
แหล่งที่มา
1

Python 2 173 172 182 ไบต์

เนื่องจาก Python หายไปนี่เป็นกระทู้แรกของฉัน:

import sys
d=dict([(int(v),chr(65+i))for(i,v)in enumerate(sys.argv[1:])])
k=sorted(d.keys())
f=k[0]
s=k[-1]-f+3
o=list(" "*s)
for i in k:o[i-f+2]=d[i]
print "<"+"-"*s+">\n"+"".join(o)

ต้นฉบับมีลักษณะดังต่อไปนี้:

import sys

dates = dict([(int(v), chr(65+i)) for (i,v) in enumerate(sys.argv[1:])])
keys = sorted(dates.keys())
first = keys[0]
out_size = keys[-1] - first + 3
out = list(" " * out_size)
for date in keys: out[date - first + 2] = dates[date]
print "<" + "-" * out_size + ">\n" + "".join(out)
— BloodyD
แหล่งที่มา
1
คุณต้องการimport sysในเวอร์ชัน golfed ของคุณ
— Mego
ตกลงฉันจะ แต่ฉันไม่เคยเห็นการนำเข้าใด ๆ ในรุ่น
— golfed
0

Groovy, 106 99 ตัวอักษร

{n=it.min()
o=[l="A"]
it.each{o[it-n]=l++}
"<${"-"*(it.max()-n+3)}>\n  "+o.collect{it?:" "}.join()}

วิ่งตัวอย่าง:

groovy:000> print(({n=it.min();o=[l="A"];it.each{o[it-n]=l++};"<${"-"*(it.max()-n+3)}>\n  "+o.collect{it?:" "}.join()})([32767,32715,32716,32750,32730,32729,32722,32766,32740,32762]))
<------------------------------------------------------->
  BC     G      FE         I         D           J   HA
— ผู้ชายที่ทำงาน
แหล่งที่มา
โดยการใช้ไซต์ของเรา หมายความว่าคุณได้อ่านและทำความเข้าใจนโยบายคุกกี้และนโยบายความเป็นส่วนตัวของเราแล้ว
Licensed under cc by-sa 3.0 with attribution required.