CJam, 60 바이트

60 년대에 오랫동안 갇힌 후 마침내 이것을 60 바이트로 압축했습니다. 충분하다! 배송 해주세요!

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

박살 :

'{0a6*q[{_A,s'-+#)!{"ytdhic"#:I){]'0+iA/I_3$=@+t[}*}*}/'|*'}

확장 및 의견 :

'{              "Add '{' to output";
0a6*            "Initialize time to a list of 6 zeros";
q               "Read the input";
[               "Open an empty numeric character buffer";
{               "For each character in the input:";
  _               "Append the character to the numeric character buffer";
  A,s'-+#)!       "Check if the character is not part of a number";
  {               "If so:";
    "ytdhic"#:I     "Remove the character from the numeric character buffer and
                     convert it to the corresponding time unit index, or -1 if
                     not recognized
                     (Time units are recognized by a character in their name
                     that does not appear before the recognition character
                     in any other name)";
    ){              "Repeat (time unit index + 1) times:";
      ]'0+iA/         "Close the numeric character buffer and parse it as an
                       integer (empty buffer is parsed as 0)";
      I_3$=@+t        "Add the integer to the value of the indexed time unit";
      [               "Open an empty numeric character buffer";
    }*              "End repeat
                     (This is used like an if statement, taking advantage of
                     the fact that iterations after the first have no effect)";
  }*              "End if";
}/              "End for";
'|*             "Insert a '|' between each time unit value (implicitly added to
                 output)";
'}              "Add '}' to output";

나는 처음에 토큰 기반 접근법을 사용하기 시작했지만 61 바이트에 꽤 단단히 붙어있었습니다. 한숨. 그래서 저는 기어를 완전히 바꾸고이 캐릭터 기반 접근 방식으로 바 꾸었습니다.

내 구문 분석 방법은 유효한 숫자 문자 ( 0– 9및 -)를 버퍼에 추가하고 시간 단위 이름 중 하나의 특정 문자에 도달하면 버퍼를 정수로 구문 분석하여 작동합니다. 그 문자입니다 y, t, d, h, i, 및c모든 시간 단위 이름에 표시되는 조건을 충족하고 다른 시간 단위 이름의 인식 문자 앞에 표시되지 않습니다. 다시 말해, 이러한 시간 단위 인식 문자 중 하나에 도달하면 숫자 버퍼가 실제로 시간 단위를 표시하는 경우 표시되는 마지막 숫자로 채워지거나, 이것이 표시되는 경우 숫자 버퍼가 비어 있지만 t 신호, 다른 시간 단위. 두 경우 모두 숫자 버퍼가 정수로 구문 분석되거나 비어있는 경우 0이되고 이는 해당 시간 단위 값에 추가됩니다. 따라서 인식 문자 다음에 다른 시간 단위로 나타나는 인식 문자는 효과가 없습니다.

다른 미친 해킹은 다음과 같습니다.

• 루프를 남용하여 숫자가 “무료로”스택에 남아있게합니다 (숫자 버퍼로 작동).
• 루프가 if 문보다 콤팩트하고 첫 번째 이후의 반복은 효과가 없으므로 조건부 대신 블록을 0 번 또는 여러 번 반복합니다.

61 바이트로 멈춘 토큰 기반 솔루션에 대해 궁금한 분은 여기에도 게시하겠습니다. 그래도 확장하거나 주석을 달지 못했습니다.

CJam, 61 바이트

'{0a6*q'm-'{,64/~m*{:X/XS**}/S%2/{~0="yodhis"#_3$=@i+t}/'|*'}

답변

s/-?\d+ *m?(.)/$$1+=$&/ge;$_="{y|o|d|h|i|s}";s/\w/${$&}+0/ge

bash-4.3$ perl -pe 's/-?\d+ *m?(.)/$$1+=$&/ge;$_="{y|o|d|h|i|s}";s/\w/${$&}+0/ge' <<< '1 year 2 months 3 seconds'
{1|2|0|0|0|3}

bash-4.3$ perl -pe 's/-?\d+ *m?(.)/$$1+=$&/ge;$_="{y|o|d|h|i|s}";s/\w/${$&}+0/ge' <<< '-2 day 5 year 8months'
{5|8|-2|0|0|0}

bash-4.3$ perl -pe 's/-?\d+ *m?(.)/$$1+=$&/ge;$_="{y|o|d|h|i|s}";s/\w/${$&}+0/ge' <<< '3day 9     years 4 seconds -5 minute 4 years 4 years -3seconds'
{17|0|3|0|-5|1}

s/([+-]?\d+) *(..)/$a{$2}+=$1/ge;$_="{ye|mo|da|ho|mi|se}";s/\w./$a{$&}||0/ge

->i{?{+"yodhis".chars.map{|w|s=0;i.scan(/-?\d+(?= *m?#{w})/){|n|s+=n.to_i};s}*?|+?}}

f["3day 9     years 4 seconds -5 minute 4 years 4 years -3seconds"]

import re
f=lambda I:"{%s}"%"|".join(`sum(map(int,re.findall("(-?\d+) *m?"+t,I)))`for t in"yodhis")

s=>s.replace(/(-?\d+) *m?(.)/g,(a,b,c)=>o['yodhis'.search(c)]-=-b,o=[0,0,0,0,0,0])&&`{${o.join`|`}}`

F=
s=>s.replace(/(-?\d+) *m?(.)/g,(a,b,c)=>o['yodhis'.search(c)]-=-b,o=[0,0,0,0,0,0])&&`{${o.join`|`}}`

;['1 year 2 months 3 seconds','-2 day 5 year 8months'
,'3day 9     years 4 seconds -5 minute 4 years 4 years -3seconds']
.forEach(i=>console.log(i,F(i)))

function(x){s="{";for(c in strsplit("yodhis","")[[1]])s=paste0(s,ifelse(c=="y","","|"),sum(as.numeric(gsub("[^0-9-]","",str_extract_all(x,perl(paste0("(-?\\d+) *m?",c)))[[1]]))));s=paste0(s,"}");s}

function(x) {
    s <- "{"
    for (c in strsplit("yodhis", "")[[1]]) {
        matches <- str_extract_all(x, perl(paste0("(-?\\d+) *m?", c)))[[1]]
        nums <- gsub("[^0-9-]", "", matches)
        y <- sum(as.numeric(nums))
        s <- paste0(s, ifelse(c == "y", "", "|"), y)
    }
    s <- paste0(s, "}")
    return(s)
}

def f(s='')
    l=int[](6)
    for i in 6,for n in RegularExpressions.Regex.matches(s,'(-?\\d+) *m?['yodhis'[i]]'),l[i]+=int.parse('[n.groups[1]]')
    print'{[l.join('|')]}'