0에서 141 (포함) 사이의 정수가 주어지면 해당 시간에시, 분 및 초 단위가 추가되는 모든 24 시간 시간을 나열하십시오.

추가 규칙

숫자는 한 자리 숫자가 아닌 시간 단위로 추가됩니다.

예를 들어 17:43:59

17 + 43 + 59 = 119

이것이 숫자가 추가 되는 예임을 기억하십시오 . 실제로 119를 입력하면 17:43:59가 결과 중 하나입니다. 출력은 HH : MM : SS 또는 H : MM : SS로 제공되어야합니다.

또한 가장 높은 숫자는 141이며 23:59:59입니다. 이것은 코드 골프이므로 가장 적은 금액이 이깁니다. 시험 및 오류는 허용되지만 이에 대한 더 나은 방법이있을 수 있습니다.

편집 : 코드에서 입력 값의 위치를 ​​지정하십시오.

젤리 , 16 30 29 20 바이트

이제 올바른 출력 형식으로! 이 답변을 디버깅하는 데 도움을 준 Dennis에게 감사합니다. 골프 제안을 환영합니다. 온라인으로 사용해보십시오!

편집 : 올바른 출력 형식을 사용하여 +14 바이트. 여분의 공간을 제거하여 -1 바이트. -3에서 변화로부터 24,60,60발 “ð<<‘. -6 바이트가에서 (으)로 변경 +100DḊ€€되었습니다 d⁵.

“ð<<‘Œp’S=¥Ðfd⁵j€”:Y

설명

“ð<<‘Œp’S=¥Ðfd⁵j€”:Y  Main link. Argument: n

“ð<<‘                 Jelly ord() the string `ð<<` to get [24, 60, 60]. Call this list z.
     Œp               Cartesian product of z's items. 
                        Since each item of z is a literal,
                        Jelly takes the range [1 ... item] for each item.
       ’              Decrements every number in the Cartesian product 
                        to get lowered ranges [0 ... item-1].
        S=¥           Create a dyadic link of `sum is equal to (implicit n)`.
           Ðf         Filter the Cartesian product for items with sum equal to n.
             d⁵       By taking divmod 10 of every number in each item,
                        we get zero padding for single-digit numbers
                        and every double-digit number just turns into a list of its digits.
               j€”:   Join every number with a ':'.
                   Y  Join all of the times with linefeeds for easier reading.

배쉬, 71

• @hvd 덕분에 8 바이트 절약

for t in {0..23}+{00..59}+{00..59};{((${t//+0/+}-$1))||echo ${t//+/:};}

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

펄 6 , 62 56 바이트

{map *.fmt('%02d',':'),grep $_==*.sum,(^24 X ^60 X ^60)}

모든 시간, 분 및 초의 교차 곱에서 가능한 모든 조합을 확인하십시오.

파이썬 3 , 91 바이트

def f(n):
 for k in range(86400):t=k//3600,k//60%60,k%60;sum(t)==n!=print('%d:%02d:%02d'%t)

exec(Python 2) 또는 재귀 (Python 3)를 사용하는 더 짧은 솔루션이 있지만 둘 다 불합리한 양의 메모리가 필요합니다.

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

PowerShell , 87 77 바이트

John L. Bevan 덕분에 10 바이트 절약

$d=date;0..86399|%{$d+=1e7l;"$d".Split()[1]}|?{("{0:H+m+s}"-f$d|iex)-in$args}

온라인으로 사용해보십시오! (이 시간이 초과되어 매우 느립니다)

설명

current로 시작하여 [datetime]1 초 86,399 번을 문자열로 형식화 한 다음 합계가 더해지는 형식 만 유지하십시오.

하스켈, 77 바이트

f x=[tail$(':':).tail.show.(+100)=<<t|t<-mapM(\x->[0..x])[23,59,59],sum t==x]

하스켈, 90 바이트

p x=['0'|x<10]++show x
i=[0..59]
f x=[p h++':':p m++':':p s|h<-[0..23],m<-i,s<-i,h+m+s==x]

HH : MM : SS 문자열의 목록을 리턴합니다 (예 : f 140->) ["22:59:59","23:58:59","23:59:58"].

시간, 분 및 초를 통과하는 3 개의 간단한 루프입니다. 합계가 입력 번호 인 모든 값을 유지하고 형식을 지정하십시오 x.

Pyth-30 바이트

가능한 모든 시간이 걸리고 필터링됩니다.

mj\:%L"%02d"dfqsTQsM*U24*KU60K

테스트 스위트 .

줄리아 0.5 , 69 바이트

!n=[h+m+s==n&&@printf("%d:%02d:%02d
",h,m,s)for s=0:59,m=0:59,h=0:23]

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

배치, 168 바이트

@for /l %%t in (0,1,86399)do @call:c %1 %%t
@exit/b
:c
@set/ah=%2/3600,m=%2/60%%60,s=%2%%60,n=%1-h-m-s
@set m=0%m%
@set s=0%s%
@if %n%==0 echo %h%:%m:~-2%:%s:~-2%

한 자리 시간을 출력합니다.

수학, 79 바이트

Cases[Tuples@{(r=Range)@24-1,x=r@60-1,x},t_/;Tr@t==#:>DateString@TimeObject@t]&

옥타브, 83 , 87 바이트

@(a){[H,M,S]=ndgrid(0:23,s=0:59,s);printf("%d:%02d:%02d\n",[H(x=H+M+S==a),M(x),S(x)]')}

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

QBIC , 82 72 바이트

:[0,23|[0,59|[0,59|~b+c+d=a|?!b$+@:`+right$(@0`+!c$,2)+A+right$(B+!d$,2)

이것은 QBasic에서 불행한 지점에 부딪친 다 0. 필요에 따라 캐스팅하고, 필요에 따라 트리밍하고 앞에 붙는 것은 비용이 많이 든다.

샘플 출력 :

Command line: 119
1:59:59
2:58:59
2:59:58
3:57:59
[... SNIP 270 lines ...]
23:58:38
23:59:37

설명 나는 그것에 대해 소설을 썼다 :

:           Get N, call it 'a'
[0,23|      Loop through the hours; this FOR loop is initialised with 2 parameters
            using a comma to separate FROM and TO, and a '|' to delimit the argument list
[0,59|      Same for the minutes
[0,59|      And the seconds
            QBIC automatically creates variables to use as loop-counters: 
            b, c, d (a was already taken by ':')
~b+c+d=a    IF a == b+c+d
|           THEN
 ?          PRINT
  !         CAST
   b        'b'
    $       To String; casting num to str in QBasic adds a space, this is trimmed in QBIC
+@:`        Create string A$, containing ":"
+right$      This is a QBasic function, but since it's all lowercase (and '$' is 
            not a function in QBIC) it remains unaltered in the resulting QBasic.
(@0`+!c$,2) Pad the minutes by prepending a 0, then taking the rightmost 2 characters.
+A          Remember that semicolon in A$? Add it again
+right$     Same for the seconds
(B+!d$,2)   Reusing the 0-string saves 2 bytes :-)

PowerShell , 67 79 바이트 (불쾌한 버전)

규칙은 특정 시간 (또는 전혀)에 대해 완료에 대해 아무 것도 말하지 않고 중복되지 않는 것에 대해 아무 말도하지 않으므로 여기에 끔찍한 해결책이 있습니다.

for(){if(("{0:H+m+s}"-f($d=date)|iex)-in$args){"{0:H:mm:ss}"-f$d}}

라켓 39 바이트

(for*/sum((h 24)(m 60)(s 60))(+ h m s))

언 골프 드 :

(for*/sum      ; loop for all combinations; return sum of values for each loop
   ((h 24)     ; h from 0 to 23
    (m 60)     ; m from 0 to 59
    (s 60))    ; s from 0 to 59
  (+ h m s))   ; sum of all 3 variables

MATL , 29 바이트

24:q60:qt&Z*t!si=Y)'%i:'8:)&V

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

설명

24:q     % Push [0 1 ... 23]
60:q     % Push [0 1 ... 59]
t        % Duplicate
&Z*      % Cartesian product of the three arrays. This gives a matrix with each
         % on a different row Cartesian tuple
t!       % Push a transposed copy
s        % Sum of each column
i=       % Logical mask of values that equal the input
Y)       % Select rows based on that mask
'%i:'    % Push this string
8:)      % Index (modularly) with [1 2 ... 8]: gives string '%i:%i:%i'
&V       % Convert to string with that format specification. Implicitly display

자바 스크립트, 122 120 바이트

빈 문자열 하나를 입력으로 사용합니다. 내가 생각하는 것은 크기에 포함되지 않습니다. 문자열 초기화를 위해 2 바이트를 추가하도록 바이트 수 (히스토리 포함)를 업데이트했습니다.

console.log((
//Submission starts at the next line
i=>o=>{for(h=24;h--;)for(m=60;m--;)for(s=60;s--;)if(h+m+s==i)o+=`${h}:0${m}:0${s} `;return o.replace(/0\d{2}/g,d=>+d)}
//End submission
)(prompt("Number:",""))(""))

자바 스크립트 (ES6), 110

v=>eval("o=[];z=x=>':'+`0${x}`.slice(-2);for(m=60;m--;)for(s=60;s--;h>=0&h<24&&o.push(h+z(m)+z(s)))h=v-m-s;o")

덜 골프

v=>{
  o=[];
  z=x=>':' + `0${x}`.slice(-2);
  for(m = 60; m--;)
    for(s = 60; s--; )
      h = v - m - s,
      h >= 0 & h < 24 && o.push(h + z(m) + z(s))
  return o
}

테스트

F=
v=>eval("o=[];z=x=>':'+`0${x}`.slice(-2);for(m=60;m--;)for(s=60;s--;h>=0&h<24&&o.push(h+z(m)+z(s)))h=v-m-s;o")

function update() {
  O.textContent=F(+I.value).join`\n`
}

update()

<input id='I' value=119 type=number min=0 max=141 oninput='update()'><pre id=O></pre>

자바 스크립트, 96 바이트

v=>{for (i=86399;i;[a,b,c]=[i/3600|0,i%3600/60|0,i--%60]){v-a-b-c?0:console.log(a+":"+b+":"+c)}}

확장 된보기 :

v => {
    for (i = 86399; i;
        [a, b, c] = [i / 3600 | 0, i % 3600 / 60 | 0, i-- % 60]) {
        v - a - b - c ? 0 : console.log(a + ":" + b + ":" + c)
    }
}

86399를 1로 반복하여 가능한 모든 시간을 반복합니다.

• 첫 자릿수를 얻기 위해 3600으로 나누어 정수를 시간으로 변환
• 정수 모드 3600을 취한 다음 60으로 나누어 두 번째 숫자
• 마지막 숫자는 정수 모드 60입니다.

입력 값에서 3 개의 숫자를 모두 빼면 입력 한 값에 3 개의 숫자가 더 해지면 잘못된 값을 반환합니다. 값이 거짓이면 값을 출력하십시오.

bash, 78 바이트 (BSD 유틸리티 사용) 또는 79 바이트 (비 BSD)

이것은 @DigitalTrauma 및 @hvd의 멋진 71 바이트 bash 솔루션보다 약간 길지만 기본 60에서 숫자를 사용하는 아이디어를 좋아했습니다. 누구든지 이것을 조금 더 아래로 내릴 수 있는지 궁금합니다.

BSD 표준 jot 유틸리티 사용 :

jot '-wx=`dc<<<60do3^%d+n`;((`dc<<<$x++'$1'-n`))||tr \  :<<<${x:3}' 86400 0|sh

보다 보편적으로 이용 가능한 seq 유틸리티를 사용하면 :

seq '-fx=`dc<<<60do3^%.f+n`;((`dc<<<$x++'$1'-n`))||tr \  :<<<${x:3}' 0 86399|sh

아이디어는 0에서 83699까지의 숫자를 생성하고 dc를 사용하여이를 60을 밑수로 변환하는 것입니다. dc의 base-60 출력에서 ​​"숫자"는 00에서 59까지의 두 자리 숫자이며 공백은 "숫자"로 구분됩니다. 이것은 00 00 00에서 23 59 59까지의 원하는 시간을 거의 필요한 형식으로 나열합니다.

그러나 문자 그대로 그것을 수행하면 60 ^ 2 미만의 숫자는 기본 60의 3 자리 숫자가 아니므로 초기 00 또는 00 00이 누락됩니다. 이런 이유로 실제로 60 ^ 3에서 60 ^ 3 + 83699까지의 숫자를 생성하고 있습니다. 이렇게하면 생성 된 모든 숫자가 60 자릿수에서 정확히 4 자리 길이가됩니다. 결국 필요하지 않은 여분의 첫 번째 숫자 (01)를 버리는 한 괜찮습니다.

따라서 원하는 시간이 생성되면 01 00 00 00에서 01 23 59 59까지 각 4 배를 취하고 마지막 세 숫자를 더하고 인수 $ 1을 뺍니다. 그 값이 0이면 3 번째 문자 ( "01"을 버림)에서 4 중의 모든 것을 취하고 tr을 사용하여 공백을 콜론으로 변환하고 결과를 인쇄합니다.

PowerShell , 91 97 바이트 (입력 포함)

param($x)1..864e3|%{($d=date($_*1e7l))}|?{("{0:H+m+s}"-f$_|iex)-eq$x}|%{"{0:H:mm:ss}"-f$_}

param($x)0..23|%{$h=$_;0..59|%{$m=$_;0..59|?{$h+$m+$_-eq$x}|%{"{0:0}:{1:00}:{2:00}"-f$h,$m,$_}}}

또는

param($x)0..23|%{$h=$_;0..59|?{($s=$x-$h-$_)-le59-and$s-ge0}|%{"{0:0}:{1:00}:{2:00}"-f$h,$_,$s}} <\ s>

확장 및 댓글 달기

param($x)
#loop through the hours
0..23 | %{
    $h=$_
    #loop through the minutes
    0..59 | %{
        $m=$_
        #loop through the seconds
        0..59 | ?{ #filter for those where the sum matches the target
            $h + $m + $_ -eq $x
        } | %{
            #format the result
            "{0:#0}:{1:00}:{2:00}" -f $h, $m, $_
        }
    }
}

NB : @Briantist 버전을 능가 : /codegolf//a/105163/6776