แรงบันดาลใจจากการวาดเส้น

กำหนดไทม์ไลน์ของเหตุการณ์เอาท์พุทวันที่สำหรับแต่ละเหตุการณ์

เส้นเวลาจะได้รับในแบบฟอร์ม

    2000
--AF-C-------E--D---B--

โดยที่บรรทัดแรกแสดงจุดที่ทราบในเวลา ปีที่รู้จักมักเป็นอักขระที่ต่ำกว่าตัวเลขแรกของปีที่รู้จัก

คุณอาจจะ:

• ในเส้นเวลานั้นตัวละครแต่ละตัวแสดงถึงหนึ่งปี
• จะมีเหตุการณ์อย่างน้อยหนึ่งเหตุการณ์เสมอ
• กิจกรรมไม่จำเป็นต้องเป็นระเบียบ
• คุณอาจสมมติว่าตัวละครทุกตัวในช่วงระหว่างAและตัวละครที่ไกลที่สุดที่มีอยู่
• จะมีไม่เกิน 26 กิจกรรม
• จุดที่รู้จักจะไม่มีช่องว่างภายในไปทางขวา
• อาจมีตัวเลขติดลบทั้งในจุดที่รู้จักและเอาท์พุท
• คุณจะไม่ต้องจัดการกับตัวเลขที่มากกว่า 2 ^ 32
• คุณจะไม่ต้องจัดการกับช่วงที่ใหญ่กว่า 2 ^ 8
• คุณสามารถป้อนข้อมูลเป็นตัวอักษรตัวพิมพ์เล็กแทนตัวพิมพ์ใหญ่

คุณควรเขียนโปรแกรมที่ใช้เส้นเวลาในแบบฟอร์มนี้และส่งออกวันที่หลักตามลำดับ (A, B, C, D ... )

คุณสามารถส่งออกในรูปแบบที่สะดวก แต่คุณต้องป้อนข้อมูลในรูปแบบที่กำหนด

กรณีทดสอบ:

    2000
--AF-C-------E--D---B--
[1998, 2016, 2001, 2012, 2009, 1999]

     10
--C-AB--D
[9, 10, 7, 13]

     0
--ABCDEFG--
[-3, -2, -1, 0, 1, 2, 3]

          5
--ABCDEFG--
[-3, -2, -1, 0, 1, 2, 3]

Pyth, 16 ไบต์

ใช้อินพุตเป็นตัวอักษรตัวพิมพ์เล็กแทนตัวพิมพ์ใหญ่

VS@GJw+-sz/zdxJN

05AB1E , 19 18 ไบต์

รหัส:

ð¢>UágF²N>.bkX-¹+,

คำอธิบาย:

ð¢                   # Count the number of spaces before the year starts
  >                  # Increment by 1
   U                 # Pop and store this into X
    á                # Keep the alphabetic characters of the second input
     g               # Take the length
      F              # For N in range(0, length), do...
       ²             #   Take the second input
        N>           #   Push N and increment by 1
          .b         #   Converts 1 to A, 2 to B, etc.
            k        #   Find the index of that letter in the second input
             X       #   Push X
              -      #   index - X
               ¹     #   Get the first input, which contains the year
                +    #   Add to the difference of the index
                 ,   #   Pop and output the sum

ลองออนไลน์!

ใช้การเข้ารหัสCP-1252

JavaScript (ES6), 72

(a,b,r=[])=>[...b].map((x,i)=>r[parseInt(x,36)-10]=+a+i-a.search`\\d`)&&r

ทดสอบ

f=(a,b,r=[])=>[...b].map((x,i)=>r[parseInt(x,36)-10]=+a+i-a.search`\\d`)&&r

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

;[['    2000','--AF-C-------E--D---B--'],
['     10','--C-AB--D'],
['     0','--ABCDEFG--'],
['          5','--ABCDEFG--']]
.forEach(t=>{
  var a=t[0],b=t[1],r=f(a,b)
  console.log(a+'\n'+b+'\n'+r+'\n')
})  

<pre id=O></pre>

Bash + coreutils, 68

บรรทัด 1 คืออินพุตเป็นตัวเลือกบรรทัดคำสั่งที่ยกมาและบรรทัด 2 คืออินพุตจาก STDIN:

s="${1//[0-9]}"
fold -1|nl -v$[$1-${#s}]|sort -k2|sed '/-$/d;s/.$//'

Perl, 58 + 1 = 59 ไบต์

/\d/;$b=<>;for$c(A..Z){($z=index$b,$c)>-1&&say$_+$z-$-[0]}

แตกหัก:

/\d/;                    # Match first digit in input string, this will set $-[0]
$b=<>;                   # Read next line (--A--CB--...) into $b
for $c (A..Z){           # Iterate over A, B, C, ... Z
  ($z=index$b,$c) >-1 && # If the character is found inside $b
  say $_+$z-$-[0]        #   then print
}

ต้องการ-nและฟรี-M5.010:

# Added line breaks for each test case
$ perl -nE'/\d/;$b=<>;for$c(A..Z){($z=index$b,$c)>-1&&say$_+$z-$-[0]}' tl
1998
2016
2001
2012
2009
1999

9
10
7
13

-3
-2
-1
0
1
2
3

-3
-2
-1
0
1
2
3
$ cat tl
    2000
--AF-C-------E--D---B--
     10
--C-AB--D
     0
--ABCDEFG--
          5
--ABCDEFG--

Pyth, 22 ไบต์

V+r\AJeSKwJ+xKN-izT/zd

ไม่ฉันไม่ได้เขียนสิ่งนี้ก่อนโพสต์ข้อความท้าทาย

คำอธิบาย:

                       - autoassign z = input()
 +r\AJeSKwJ            -  create range of letters
        Kw             -      autoassign K = input()
      eS               -     sorted(K)[-1] (get the biggest character)
     J                 -    autoassign J = ^
  r\A                  -   range("A", ^)
 +        J            -  ^ + J
V                      - for N in ^: V
               -izT/zd - Get the number at the start
                izT    -   int(z, 10)
               -       -  ^-V
                   /zd -   z.count(" ")
           +           - V+^
            xKN        -  K.index(N)

ลองที่นี่

Python 3, 118

ผู้ชายวันนี้เป็นวันที่คำตอบของงูหลามยาว

def f(p,l):o=sum(x<'0'for x in p);e={x:i-o+int(p[o:])for i,x in enumerate(l)if'@'<x};return list(map(e.get,sorted(e)))

อย่างจริงจัง 40 ไบต์

' ,c,;)l@;±)@-(x@;╗@Z`i3╤τ+@┐`MX╜ú∩S`└`M

ลองออนไลน์!

คำอธิบายจะมาภายหลังหลังจากเล่นกอล์ฟต่อไป

Perl, 80 79 71 67 ไบต์

($a=<>)=~/\d/;$b=<>;say$a+$_-$-[0]for grep{$_+1}map{index$b,$_}A..Z

ขอบคุณ@ dev-null เป็นเวลา 12 ไบต์!

($a=<>)=~/\d/;  # read first line of input, find position of first digit
                # (saved in the $- variable)
$b=<>;          # read the second line
                                           A..Z  # generate range 'A','B',...
                            map{index$b,$_}      # find index for each
                  grep{$_+1}                     # select only those != -1
              for                                # foreach of remaining...
say$a+$_-$-[0]                                   # calculate proper date