문제

최후 심판의 시나리오는 한 줄에 세 개의 숫자에 의해 설명되고 n, m하고 p. 그 라인 다음에는 라인 당 값 이있는 n라인이 m있습니다. 각 값은 각 셀이 보유 할 수있는 총 물 단위를 나타냅니다.

다음 p줄은 다음 p날 날씨를 설명합니다 . 매일 1 셀에 1 단위의 비가 내립니다. 세포의 물량이 보유 할 수있는 양을 초과하면 세포가 침수됩니다. 인접한 여러 셀이 최대 용량 인 경우 공통 이웃을 공유하는 하나의 셀로 취급됩니다 (공백 그룹을 클릭 할 때 지뢰 찾기를 생각하십시오).

• 단일 중간 셀에는 4 개의 이웃이 있습니다.
• 2 개의 인접한 전체 용량 중간 셀은 6 개의 이웃이있는 하나의 셀로 처리됩니다.
• 단일 코너 셀에는 2 개의 이웃이 있습니다
• 단일 벽 셀에는 3 개의 이웃이 있습니다.

셀이 플러딩되면 플러드 이벤트가 발생합니다. 모든 초과 물은 이웃에 골고루 분배됩니다. 그로 인해 하나 이상의 이웃이 홍수를 일으키면 다른 홍수 이벤트가 발생합니다. 이것은 물이 식거나 도시가 완전히 침수 될 때까지 계속됩니다.

입력 예

7 5 3
3 2 3 4 5
2 0 2 3 4
1 2 3 3
4 1 2 2 2
4 1 2
4 1 4 2 2
4 4 2 2 2
0 0
1 2
3 4

• 0 0 열 1, 열 1에 비가 내렸다는 의미
• 1 2 열 2, 열 3에 비가 내렸다는 것을 의미합니다 (물이 0이되며 즉시 홍수가 발생할 수 있습니다).

p비가 온 후 도시가 완전히 침수되면 Sink를 출력 합니다. 그렇지 않으면 Swim을 출력하십시오 .

출력 예

수영

가정

• 입력은 stdin을 통해 제공되거나 "city.txt"에서 읽거나 인수로 승인 될 수 있습니다. 세 가지 모두 이미 게시 된 답변을 무효화하지 않도록 허용됩니다.
• 물 용량은 음이 아닌 정수입니다.

다양한 언어로 프로그래밍 콘테스트에서 경쟁하는 40 명 이상의 저학년 대학생 (A & M, UT, LSU, Rice, Baylor 등)이 5 시간 안에이 문제를 해결할 수 없었습니다. 그로 인해 나는 해결책을 사소하게 만드는이 퍼즐에 캐치가 있다고 언급 할 수는 없습니다. 가장 짧은 코드는 퍼즐을 해결할 것이라고 확신하기 때문에 가장 짧은 코드가 여전히 승리합니다.

골프 스크립트, 37 30 자

PeterTaylor 덕분에 새롭고 개선 된 팁 :

~](\(@*\(@@<{+}*>"SwimSink"4/=

설명 :

Code                     -                                            - Stack
~]                       - parse input into an array of integers      - []
(                        - pop first number and put on stack          - [] 7
\(                       - \ swaps top two, then pop first num again  - 7 [] 5
@                        - bring 3rd down from stack to front         - [] 5 7
*                        - mult. this is grid size                    - [] 35
\(@                      - bring next # out - the days of rain        - [] 3 35
@                        - bring array out                            - 3 35 []
<                        - take first 35 elements out of array.
                           this extracts just the capacities and 
                           consumes the rest                          - 3 []
{+}*                     - fold the array using plus - this sums the
                           entire thing                               - 3 86
<                        - greater-than comparison: 3 > 86?           - 0
"SwimSink"4/             - push a string and split it to groups of 4  - 0 ["Swim" "Sink"]

=                        - index into the array using the result of
                           the comparison. if rain > capacity, then
                           sink, else swim                            - "Swim"

그런 다음 프로그램이 종료되고 스택이 출력됩니다.

이전 버전 + 설명 :

[~](\(@*\(@{\(@\-}*\;0>"Sink""Swim"if

Fors 와 동일한 접근 방식 , Golfscripted =). 더 효율적으로 만들 수 있습니다. 입력은 표준 입력입니다.

설명 :

Code                     -                                            - Stack
[~]                      - parse input into an array of integers      - []
(                        - pop first number and put on stack          - [] 7
\(                       - \ swaps top two, then pop first num again  - 7 [] 5
@                        - bring 3rd down from stack to front         - [] 5 7
*                        - mult. this is grid size                    - [] 35
\(@                      - bring next # out - the days of rain        - [] 3 35
{                        - define a block which...
 \(@                     - brings next number out
 \-                      - swaps and subtracts 2nd down from top
}                                                                     - [] 3 35 {}
*                        - repeat that block 35 times. this ends up
                           pulling the capacities out one by one
                           and decrementing our number-of-days 
                           number by each one                         - [] -84 
\;                       - swap and kill the array to get rid of
                           unused input                               - -84
0>"Sink""Swim"if         - if the num > 0, evaluate to "Sink", 
                           otherwise to "Swim"                        - "Swim"

그런 다음 프로그램은 스택을 출력하며 이는 정답입니다.

C : 100 96 95 자

n,m;main(p){scanf("%d%d%d",&n,&m,&p);for(n*=m;n--;scanf("%d",&m))p-=m;puts(p>0?"Sink":"Swim");}

다섯 시간? 5 분만 걸 렸어요 :)

Aragaer, 단순화 주셔서 감사합니다! 그러나 main에 대한 두 번째 인수가 이외의 유형 인 경우 Clang에서 오류가 발생하는 것처럼 변수 선언과 인수를 main으로 재 배열했습니다 char **.

파이썬, 4 줄, 175 자

import sys 
F=sys.stdin
n,m,p=[int(a) for a in F.readline().split()]
print("sink") if p > sum([sum(int(x) for x in F.readline().split()) for a in range(n)]) else print("swim")

Lol, 40 개 이상의 팀이 어획량을 찾은 후 결국 어려운 일을했는지 ​​궁금합니다.

J (50 자) 및 K (40) 이중 기능

평소와 같이이 두 솔루션의 구조는 동일하므로 모두 여기에 있습니다. K는 훨씬 짧아서 놀랍습니다.

>Sink`Swim{~(]<[:+/[+/@".@$+1!:1@#1:)/0 2{".1!:1]1

설명:

• ".1!:1]1 -첫 번째 줄을 읽고 정수로 변환하십시오.
• (...)/0 2{-인덱스 0과 2 ( n및 p각각) 의 항목을 각각 동사의 왼쪽과 오른쪽 인수로 사용하십시오 (...).
• +1!:1@#1:- n+p줄을 읽습니다 .
• [+/@".@$- $첫 번째 n행 ( [)을 가져 와서 나머지를 버린 다음 정수 ( ".) 로 변환하고 각 행 ( +/) 에서 합계를 계산합니다 .
• ]<[:+/-행 합계를 더한 다음이 값을 올바른 인수와 비교하십시오 p. p합계보다 작 으면 true를 생성합니다 .
• >Sink`Swim{~- Swim위의 비교 결과가 참 Sink인지 거짓 인지를 선택하십시오 .

용법:

   >Sink`Swim{~(]<[:+/[+/@".@$+1!:1@#1:)/0 2{".1!:1]1
7 5 3
3 2 3 4 5
2 0 3 3 4
1 1 2 3 3
4 1 2 2 2
4 1 1 2 2
4 4 1 2 2
4 4 2 2 2
0 0
1 2
4 3
Swim

그리고 이제 K :

`Sink`Swim@{z<+//.:'x#0::'(x+z)#`}.. 0:`

설명 :

• . 0:` -입력 줄을 읽고 정수 배열로 변환합니다.
• {...}.-이 3 개의 숫자 를이 함수 n m p의 인수로 사용하십시오 x y z.
• 0::'(x+z)#`- x+z입력 파일 핸들의 복사본을 `만든 다음 각각에 대해 한 줄씩 읽습니다 ( 0::').
• .:'x#-첫 번째 x항목을 가져 와서 각각을 벡터로 변환하십시오.
• z<+//-전체 행렬을 합한 다음보다 큰지 테스트합니다 z.
• `Sink`Swim@- Sink또는 Swim테스트가 true를 반환했는지 여부에 따라 반환합니다.

용법:

  `Sink`Swim@{z<+//.:'x#0::'(x+z)#`}.. 0:`
7 5 3
3 2 3 4 5
2 2 0 3 4
1 1 2 3 3
4 1 2 2 2
4 1 1 2 2
4 4 1 2 2
4 4 2 2 2
0 0
1 2
4 3
`Swim

APL, 35

4↑'SwimSink'⌽⍨4×x[3]>+/{+/⎕}¨⍳1⌷x←⎕

허용 여부는 확실하지 않지만 "도시"이후 입력 승인을 중단합니다

x←⎕입력을 받아 변수에 저장 x(공백으로 구분 번호는 숫자 배열로 해석됩니다)
1⌷추출 인덱스 1 (APL 배열 한 기반)
⍳(인수 1에서 배열 생성 1⌷x←⎕이 경우에는)
¨"맵"작업
{+/⎕}에서 걸릴 배열 입력 합 반환
+/합계를 맵 연산에 의해 생성 된 배열
4×x[3]>합 <되었는지 테스트 x[3](반환 값 1 또는 0), 그 다음 다중 4
'SwimSink'⌽⍨회전 문자열 'SwimSink'그만큼이
4↑마지막으로, 스트링의 제 4 개 문자 추출을

AWK, 70

n{for(;NF;NF--)s+=$NF;n--}NR==1{n=$1;p=$3}END{print p<s?"Swim":"Sink"}

이것은 내 제출 (86)에 대한 laindir의 개선입니다.

NR==1{h=$1;w=$2;r=$3;next}NR<=h{for(i=1;i<=w;++i)c+=$i}END{print(c>r?"Swim":"Sink")}

커피 스크립트 - 128 (113)

문자열을 유일한 인수로 취하는 함수 :

s=(l)->l=l.split /\n/;[n,m,p]=l[x=0].split /\s/;x+=c|0 for c in r.split /\s/ for r in l[1..n];`p>x?"Sink":"Swim"`

SED, 128

sed이것 의 버전 을 쓰는 것은 재미있었습니다 . 다음과 같은 단점이 있습니다.

• 도시에 빗물 선을 쉽게 인식 할 수 있도록 두 개 이상의 기둥이 있다고 가정합니다.

• 각 도시의 수용 인원이 0-9의 범위에 있다고 가정합니다.

여기있어:

1d
s/^. .$/R/
G
:a
s/[\n 0]//
/[2-9]/{s/^/C/
y/23456789/12345678/}
s/1/C/
s/0//
s/RC//
h
ta
${s/R//g
s/^Sink//
s/.*C$/Swim/
p}

-n깃발로 전화하십시오 .

SWI- 프롤로그 79

이 답변이 stdin을 통하지 않고 쿼리로 입력된다는 사실을 신경 쓰지 않으면 :

s(A,L):-append(A,B),sumlist(B,C),length(L,D),(D>C->E='Sink';E='Swim'),print(E).

대답은 입력 형식의 유효성을 검사하지는 않지만 프로그래밍 콘테스트도 필요하지 않기 때문에 문제가되지 않습니다.

샘플 쿼리 (질문의 예 사용) :

s([[3,2,3,4,5],
   [2,2,0,3,4],
   [1,1,2,3,3],
   [4,1,2,2,2],
   [4,1,1,2,2],
   [4,4,1,2,2],
   [4,4,2,2,2]],
  [(0,0),
   (1,2),
   (4,3)]).

파이썬-152

import numpy
n, m, p = map(int,raw_input('').split())
print 'swim' if p<numpy.sum(numpy.matrix(';'.join([raw_input('') for i in range(n)]))) else 'sink'

스칼라-128

val a=readLine.split(' ')map(_.toInt);println(if((1 to a(0)map(x=>readLine.split(' ')map(_.toInt)sum)sum)>a(2))"swim"else"sink")

일부 괄호 나 무언가를 생략하는 것이 가능할 수도 있지만 스칼라는 구두점과 무단 스타일 및 () 대 {} 및 기타 등등에 대해 변덕 스럽습니다.

자바 스크립트-73 자

for(i=c=0,a=s.split(/\s/);i++<a[0]*a[1];)c+=a[2+i]*1;c>a[2]?"Swim":"Sink"

입력 변수에 있다고 가정 s하여 출력 Swim하거나 Sink.

예:

원래 질문에서-브라우저 콘솔에 입력하십시오.

s="7 5 3\n3 2 3 4 5\n2 2 0 3 4\n1 1 2 3 3\n4 1 2 2 2\n4 1 1 2 2\n4 4 1 2 2\n4 4 2 2 2\n0 0\n1 2\n4 3";
for(i=c=0,a=s.split(/\s/);i++<a[0]*a[1];)c+=a[2+i]*1;c>a[2]?"Swim":"Sink"

출력 :

Swim