믿거 나 말거나, 섹스 밥 놈 은 세계적으로 유명한 밴드가되었으며 현재 세계 투어 중입니다! 회계 담당자 로서 일상적인 재정을 감독하고 정기적 인 보고서를 제공해야합니다.

몇 주마다 지출 목록을 전체 순서대로 USD 단위 로 작성하십시오.

예를 들어, 목록

378
-95
2234

378 달러가 계좌에 예치되었고 그 후 95 달러가 철회 된 후 2234 달러가 예치 된 후.

이 값의 누계 합계가 일부 임계 값 T 아래로 떨어지지 않도록하려고합니다 . 이를 위해 프로그램을 작성하기로 결정했습니다.

도전

단일 정수 T 와 정수 목록 을 취하는 프로그램이나 함수를 작성하십시오 . 정수 목록의 누계 합이 T 보다 작 으면 거짓 값 을 인쇄하거나 반환하고 , 그렇지 않으면 값을 인쇄하거나 반환합니다.

일반적인 입력 방법 (stdin, file, command line, arguments to function)을 사용할 수 있습니다.

• 목록의 시작 부분에서 누적 합계는 0입니다. 따라서 양수 T 는 결과가 항상 거짓임을 의미합니다.
• + 양의 정수 앞에 절대로 있지 않습니다.
• 이 목록에는 0이 포함될 수 있습니다.
• 목록이 비어있을 수 있습니다.

테스트 사례

이들 모두에서 T 는 -5이다.

거짓 :

-6

1
2
3
-20

200
-300
1000

진실한 :

[empty list]

-5

4
-3
-6

채점

가장 적은 바이트를 가진 제출이 이깁니다. Tiebreaker는 가장 빠른 게시 제출에갑니다.

^{이것을 유감스럽게 생각한 유감스러운 말.}

답변

inits
sum get-a lt filter3
not

78 64 D0 70 F2 22

f t=all(>=t).scanl(+)0

f=lambda a,t:t<=0<(a and f(a[1:],t-a[0]))

   */@:<:0,+/\

   _5 (*/@:<:0,+/\)  1 2 3 _20
0
   _5 (*/@:<:0,+/\)  >a: NB. empty list
1

∧.≤∘(0,+\)

FreeQ[Accumulate@{0,##2},n_/;n<#]&

FreeQ[Accumulate@{0,##2},n_/;n<#]&[-5, 1, 2, 3, -20]
(* False *)

&/~0<-\,

  (&/~0<-\,)[-5; 1 2 3 -20]
0
  f:&/~0<-\,  /assign to a name
  f[-5; 4 -3 -6]
1