배경

다음과 같은 일반적인 수수께끼가 있습니다.

달팽이는 30 피트 아래쪽에 있습니다. 달팽이는 매일 3 피트를 올라갈 수 있습니다. 밤에 잠을 자면 2 피트 아래로 미끄러 져 내려갑니다. 달팽이가 우물에서 나오려면 며칠이 걸립니까?

직관적 인 대답은

달팽이가 30 일 동안 하루에 1 피트 씩 올라 정상에 도달하기 때문에 30 일,

그러나 실제로 대답은

일단 달팽이가 공중에서 27 피트 (27 일 후)에 도달하면, 28 일에 나머지 3 피트를 위로 올라 가기 때문에 28 일입니다.

도전

이 도전은이 수수께끼를 일반화합니다. 총 높이, 상승 높이 및 하강 높이를 나타내는 3 개의 양의 정수가 입력으로 주어지면 우물에서 상승하는 데 걸리는 일 수를 반환합니다.

달팽이가 우물 밖으로 나올 수 없으면 0을 반환하거나 잘못된 값을 반환하거나 예외를 throw 할 수 있습니다. 솔루션이있는 경우에만 중단되는 코드를 작성할 수도 있습니다.

원하는 경우 가을 높이를 음의 정수로 사용할 수 있습니다.

테스트 사례

(30, 3, 2)-> 28
(84, 17, 15)-> 35
(79, 15, 9)-> 12
(29, 17, 4)-> 2
(13, 18, 8)-> 1
(5, 5, 10)-> 1
(7, 7, 7)-> 1
(69, 3, 8)-> 없음
(81, 14, 14)-> 없음

채점

이것은 code-golf 이므로 각 언어에서 가장 짧은 답변이 이깁니다.

회색 달팽이 , 숫자 I / O의 경우 1206 바이트, 단항 I / O의 경우 149 바이트

재미 로요 첫 번째 프로그램의 구성 :

• 451 바이트, 숫자를 점으로 변환
• 121 바이트, 핵심 기능 (아래에 분리 된 버전이 작성 됨)
• 634 바이트, 점을 숫자로 변환

숫자를 입력하고 출력하십시오. 입력되고 A, B, C각각. 다른 (거의) O(1)답변과 비교할 때 코드의 복잡도는 O(n)입니다. 그러나 많은 수의 경우 메모리가 먼저 소모 될 수 있습니다.

해결책이 없으면 정지합니다.

INPUT p
POP Z r .!
f
POP Z o .
q
POP Z p [p]
GOTO [Z]
0
POP Z n .
GOTO w
1
POP Z n ..
GOTO w
2
POP Z n ...
GOTO w
3
POP Z n ....
GOTO w
4
POP Z n .....
GOTO w
5
POP Z n ......
GOTO w
6
POP Z n .......
GOTO w
7
POP Z n ........
GOTO w
8
POP Z n .........
GOTO w
9
POP Z n ..........
GOTO w
w
POP Z o .[o][o][o][o][o][o][o][o][o][o][n]
GOTO [r] [p] 
GOTO q
!
POP Z A .[o]
INPUT p
POP Z r .@
GOTO f
@
POP Z B .[o]
INPUT p
POP Z r .#
GOTO f
#
POP Z C .[o]
POP H N .[B]
U
POP Z A [A]
POP Z B [B]
GOTO D [A] 
GOTO $ [B] 
GOTO U
$
POP Z A .[A][C]
POP Z H ..[H]
POP Z B .[N]
GOTO U
D
POP Z r .
POP Z M .
POP Z N ...........
POP Z z .[N]
POP Z V .[H]
+
GOTO l[V] [H] 
POP Z H [H]
POP Z z [z]
GOTO ( [z] 
GOTO +
(
GOTO ) [H] 
POP Z z .[N]
POP Z M ..[M]
POP Z V .[H]
GOTO +
)
POP Z r .0[r]
POP Z M ..[M]
POP Z H .[M]
POP Z M .
POP Z V .[H]
POP Z z .[N]
GOTO +
l
POP Z r .0[r]
GOTO -
l.
POP Z r .1[r]
GOTO -
l..
POP Z r .2[r]
GOTO -
l...
POP Z r .3[r]
GOTO -
l....
POP Z r .4[r]
GOTO -
l.....
POP Z r .5[r]
GOTO -
l......
POP Z r .6[r]
GOTO -
l.......
POP Z r .7[r]
GOTO -
l........
POP Z r .8[r]
GOTO -
l.........
POP Z r .9[r]
GOTO -
-
GOTO / [M] 
POP Z H .[M]
POP Z M .
POP Z V .[H]
POP Z z .[N]
GOTO +
/
OUTPUT [r]

f정수를 점으로 변환하는 (아마도) 재귀 함수입니다. 인수는에 저장 [p]되고에 출력됩니다 [o].

U기능 시험이다 S1>=S2의 파라미터 저장 B, A절약 상태 A-B로는 A.

시작 코드 D는 점을 숫자로 변환하는 스텁입니다.

기본 원칙은 내 C 답변과 동일합니다 (불가능한 해결책을 위해 허위 출력을 제거합니다).

독립형 버전, 149 156 157 167 170 230 바이트, 단항 I / O 만 지원

예 ..........를 들어 입력은 점이어야 합니다 10.

INPUT A
INPUT B
INPUT C
POP N H .
GOTO U
$
POP N A .[A][C]
POP Z H ..[H]
U
POP Z A [A]
POP Z N ..[N]
GOTO D [A] 
GOTO $ .[B] [N]
GOTO U
D
OUTPUT .[H]

U를 계산 A=A-B하고 Dwhen로 이동합니다 A<=0. 그렇지 않으면 $할당 A+C에 A와 전화 U.

해결책이 없으면 정지합니다.

요령 : 빈 문자열을 해석하는 "컴파일러"기능을 남용합니다. 조건 GOTO없는 점프를하기 위해 명령문 에서 조건을 제거 하고 동일한 트릭을 사용할 수 POP있습니다.

비고 : 3 바이트 씩 더 골프를 치는 것이 가능하지만 내 것과 WheatWizard의 대답은 정확히 같은 논리를 갖습니다. 결과는 아마도 가장 짧은 GraySnail 솔루션이며 증명하려고합니다.

참고 : 주석 수에서 Martin Ender는 바이트 수에 의문을 제기하고 있습니다. C # 답변에서 명명 된 재귀 람다 식으로 무엇을 해야할지에 대한 명확한 합의가없는 것 같습니다. 그래서 메타 에 대해 질문 했습니다.

C # (. NET 코어) , 32 31 바이트

f=(a,b,c)=>a>b?1+f(a-b+c,b,c):1

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

재귀 적 접근. 달팽이가 탈출 할 수 없으면 다음 메시지로 끝납니다.Process is terminating due to StackOverflowException.

• LiefdeWen 덕분에 1 바이트가 절약되었습니다!

GRAY 달팽이 219 206 169 167 159 156 146 바이트 (단항 IO)

INPUT a
INPUT u
INPUT d
POP U c 
GOTO 1
3
POP f a [a][d]
POP U c ..[c]
1
GOTO 2 [a] 
GOTO 3 [U] [u]
POP f U ..[U]
POP f a [a]
GOTO 1
2
OUTPUT [c].

나는 이것을 조금 아래로 내릴 수 있다고 생각한다.

자바 스크립트 (ES6), 31 28 27 바이트

@Arnauld 덕분에 몇 바이트를 절약했습니다.

나는 우리가 예외로 실패 할 수 있다는 것을 몰랐다. 이것이 최적임을 확신하십시오.

u=>d=>g=h=>h>u?1+g(h-u+d):1

예를 들어 변수에 대입하고 f=like를 호출하십시오 f(climb)(fall)(height). InternalError: too much recursion등반이 불가능하면 던집니다 .

자바 스크립트 (ES6), 38 바이트

f=(h,u,d=0)=>h>u?u>0?1+f(h-u,u-d):+f:1

일 수를 반환하거나 NaN전혀 반환 하지 않는 재귀 함수입니다 .

테스트 사례

let f=(h,u,d=0)=>h>u?u>0?1+f(h-u,u-d):+f:1;

[
  [30,  3,  2],
  [84, 17, 15],
  [79, 15,  9],
  [29, 17,  4],
  [13, 18,  8],
  [ 5,  5, 10],
  [ 7,  7,  7],
  [69,  3,  8],
  [81, 14, 14]
].map(x => console.log(x + '', '->', f.apply(null, x)))

엑셀, 51 46 바이트

@ Scarabee 덕분에 -1 바이트 .

INT (x) = FLOOR (x, 1)이므로 -4

=IF(B1<A1,IF(C1<B1,-INT((B1-A1)/(B1-C1)-1)),1)

셀 A1, B1 및 C1에서 각각 입력합니다. FALSE유효하지 않은 시나리오를 반환 합니다.

C (gcc), 39 43 44 46 47 58 60 바이트

32 비트 GCC 및 모든 최적화에서만 해제되었습니다.

f(a,b,c){a=a>b?b>c?1+f(a-b+c,b,c):0:1;}

솔루션이 불가능하면 0을 리턴하십시오. 원래 재귀 솔루션의 수정 된 버전.

@Jonah J 솔루션 및 @CarlosAlejo C # 솔루션에서 영감을 얻었습니다.

나중에 그레이 스 네일 답변을 마친 후 확장 버전을 업데이트하겠습니다.

자바 (OpenJDK 8) , 35 바이트

(a,b,c)->b<a?c<b?(a+~c)/(b-c)+1:0:1

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

수학이 이깁니다!

크레딧

• Kevin Cruijssen 덕분에 -1 바이트

파이썬 2 , 37 바이트

f=lambda x,y,z:x-y<1or 1+f(x-y+z,y,z)

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

마지막으로 내 표준 계산보다 내 재귀 버전을 얻었습니다 (호출하기 전에 카운트를 추가하는 대신 카운트를 함수에 전달했습니다).

파이썬 2 , 4346 바이트

#43 bytes
lambda x,y,z:y/x>0 or[1-(x-y)/(z-y),0][z/y]
#46 bytes
lambda x,y,z:y/x and 1or[1-(x-y)/(z-y),0][z/y]

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

"__> 0"에 대해 "__ and 1"을 교환하여 3 바이트를 면도했습니다.

부울 속임수를 사용하여 기본적으로 다음을 실행합니다.

if floor(y/x) > 0:
    return True # == 1
elif floor(z/y) == 1:
    return 0
elif floor(z/y) == 0:
    return 1-floor((x-y)/(z-y))
    # Python 2 implicitly treats integer division as floor division
    # equivalent: 1 + math.ceil((y-x)/(z-y))
    # because: -floor(-x) == ceil(x)

R, 43 바이트

다른 답변에서 차용 :

g=function(a,b,c)`if`(b<a,1+g(a-b+c,b,c),1)

해결책이 없으면 오류가 발생합니다.

J, 25 바이트

먼저 "양의 정수 결과 이외의 다른 것"이 "없음"이라고 가정하기 때문에 치트 인 좋은 해결책입니다.

>.>:%/2-/\

설명

• 2-/\3 개의 항목 입력에서 길이가 2 인 창을 사용하여 각 항목 사이에 빼기 부호를 입력 30 3 2합니다.27 1
• %/ 목록의 각 요소 사이에 나누기 기호를 넣으십시오.이 경우 목록에는 두 개의 항목 만 있으므로 "27을 1로 나누기"를 의미합니다.
• >: 1 씩 증가
• >. 천장을 다

공식 솔루션

음수와 무한대를 0으로 변환하는 공식 솔루션은 다음과 같습니다.이 부분은 만족스럽게 간결한 솔루션을 찾을 수 없었습니다.

0:`[@.(>&0*<&_)>.>:%/2-/\

TIO

펄 5 , 37 바이트

에 대한 35 바이트 코드 +2 -pa.

$i-=$F[2]while++$\,($i+=$F[1])<$_}{

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

PHP> = 7.1, 60 바이트

이스케이프없이 0을 인쇄합니다

[,$h,$u,$d]=$argv;echo$h>$u?$u>$d?ceil(($h-$d)/($u-$d)):0:1;

PHP 샌드 박스 온라인

PHP> = 7.1, 67 바이트

탈출하지 않고 아무것도 인쇄하지 않습니다.

for([,$h,$u,$d]=$argv;($u>$d?:$h<=$u)&&0<$h+$t*$d-$u*++$t;);echo$t;

PHP 샌드 박스 온라인

Mathematica, 47 40 39 바이트

If[#==#2,1,⌈(#-#3)/(#2-#3)⌉~Max~0]&

@KeyuGan에서 -7 바이트

루비 , 49 47 바이트

->h,a,b{h-a<1?1:(1.0*(h-a)/[a-b,0].max+1).ceil}

달팽이가 올라가지 않으면 예외가 발생합니다.

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

배치, 66 바이트

@set/an=%4+1,a=%1-%2+%3
@if %1 gtr %2 %0 %a% %2 %3 %n%
@echo %n%

두 번째 마지막 테스트 사례는 아무 것도 인쇄하지 않았으며 마지막 테스트 사례는 실제로 충돌했습니다 CMD.EXE...

05AB1E , 19 바이트

0[¼²+D¹<›i¾q}³-D1‹#

설명:

0                   Initialise stack with 0
 [                  while(true)
  ¼                   increment the counter variable
   ²+                 add the second input to the top of the stack
     D¹<›i            if it is greater than or equal to the first input
          ¾             push the counter variable
           q            terminate the program
             }        end if
              ³-      subtract the third input from the top of the stack
                D     duplicate top of stack
                 1‹   if it is less than 1
                   #  break the loop

유효하지 않은 값의 경우 1보다 작은 값을 리턴 할 수 있습니다. 그러나 05AB1E에서는 1 만 진실이므로 유효하지 않은 값의 출력이 허위이어야한다는 요구 사항을 충족합니다.

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

PHP, 60 바이트

[,$h,$v,$d]=$argv;echo$h>$v?$v>$d?ceil(($h-$d)/($v-$d)):N:1;

에 인쇄 N합니다 None. 로 실행하십시오 -r.

05AB1E , 12 바이트

.×ηO<²›1k2÷>

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

0불가능한 경우 인쇄 합니다.

입력 형식 :

[climb, -fall]
height

Japt , 12 바이트

@UµV-W §W}aÄ

온라인으로 테스트하십시오!

undefined브라우저를 잠시 정지시킨 후에는 절대 출력 하지 않으므로주의하십시오.

이것이 최적이라고 확신하지 않습니다. oWV-W l마지막 세 가지 경우를 제외하고 모두 작동합니다 ...

하스켈 , 30 29 바이트

(b!c)a=1+sum[(b!c)$a+c-b|a>b]

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

기존 Haskell 답변보다 짧습니다. 아마도 다른 사람이 나를 이길 수 있습니다.

재귀적인 접근 방식을 사용하여 문제를 해결합니다. 각 재귀는 본질적으로 달팽이의 움직임의 날입니다. 끝까지 남은 거리가 여전히 필요한 거리보다 작 으면 재귀를 종료합니다.

QBIC , 31 23 바이트

요구 사항이 변경되었음을 알았습니다. 이 버전은 달팽이가 우물 꼭대기에 도달하는지 확인하지 않습니다.

≈:-:>0|q=q+1┘a=a-b+:]?q

솔루션이 있는지 확인하는 원래 버전에 대한 아래 설명은이 코드의 모든 관련 부분에도 적용됩니다.

원본, 31 바이트 답변 :

~:>:|≈:-a>0|q=q+1┘c=c-a+b]?q\?0

설명

~           IF
 :          cmd line arg 'a'  (the increment of our snail)
  >         is greater than
   :        cmd line arg 'b'  (the decrement, or daily drop)
    |       THEN
≈           WHILE
 :          cmd line arg 'c'  (the height of the well)
  -a        minus the increment (we count down the hieght-to-go)
    >0|     is greater than 0 (ie while we haven't reached the top yet)
q=q+1       Add a day to q (day counter, starts at 1)
┘           (syntactic linebreak)
c=c-a+b     Do the raise-and-drop on the height-to-go
]           WEND
?q          PRINT q (the number of days)
\?0         ELSE (incrementer <= decrementer) print 0 (no solution)

온라인으로 사용해보십시오! (실제로 그렇지는 않습니다 : 이것은 repl.it에서 실행되는 QBasic 코드로 QBIC을 변환 한 것입니다 (약간 부족한) QBasic 환경)

Excel VBA, 47 바이트

개체 출력에서 ​​VBE 즉시 창 까지의 범위 [A1:C1]에서 입력을받는 익명 VBE 즉시 창 기능ActiveSheet

이 Excel 공식 기반 솔루션은 주로 내가 얻을 수있는 순수한 VBA 솔루션보다 작습니다.

?[If(B1>C1,-Int((B1-A1)/(B1-C1)-1),Int(A1=B1))]

Haskell, 47 55 바이트 (튜플이 필요한 경우 48)

f d c s|d<=c=1|c<s= -1|d>c||c<s=1+(f(d-c+s)c s)

튜플 변형

f(d,c,s)|d<=c=1|c<s= -1|d>c||c<s=1+(f(d-c+s)c s)

설명

f d c s       function that does all the heavy lifting =)
              d - depth
              c - climb per day
              s - slide per night

 |d<=c=1             recursion terminator. 1 day of climbing 
 |c<s= -1            possibility check. top can't be reached
 |otherwise=1+(f(d-c+s)c s)  1 day plus the rest of the distance

파이썬 3, 41 바이트

f=lambda a,b,c:int(b>=a)or 1+f(a-b+c,b,c)

절대에 대한 오류

아웃 고프 @veganaiZe

APL (Dyalog) , 13 바이트

(⌈+÷⊢)/0⌈2-/⊢

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

달팽이가 우물 밖으로 나올 수없는 경우 0으로 나누는 오류.

C # (. NET 코어) , 37 바이트

(h,c,f)=>h>c?f<c?1+(h-f-1)/(c-f):0:1;

비 재귀 람다. 여기에있는 공식을 사용 하십시오 . "모든 부정적인 결과"가 실패를 리턴하는 올바른 방법 인 경우 6 바이트로 단축 될 수 있습니다. 현재 대신 0을 반환합니다.

Python v2 및 v3, 44 바이트

f=lambda x,y,z:1+f(x-(y-z),y,z)if x>y else 1

^ 없음의 경우 무한 재귀 (오류).

HP-15C 프로그래밍 가능 계산기, 26 바이트

프로그램을 실행하기 전에 세 개의 숫자가 순서대로 스택에로드됩니다. 낙하 높이는 음수로 입력됩니다. 달팽이가 우물 밖으로 나올 수 없으면 결과는 음수 또는 오류 # 0 (제로 나누기 오류)입니다.

16 진수로 된 연산 코드 :

C5 C1 B4 C5 FB 74 1A C4 FA B4 C5 FD C1 C1 A3 70 C6 F0 B4 FA EB F1 FA B2 0A F1

지시 의미 :

x↔y 
ENTER
g R⬆
x↔y 
− 
g TEST x≤0 
GTO A
R⬇
+ 
g R⬆
x↔y 
÷ 
ENTER
ENTER
f FRAC
TEST x≠0 
EEX 
0 
g R⬆
+ 
g INT 
1 
+ 
g RTN 
f LBL A
1

이 HP-15C 시뮬레이터로 프로그램을 시험해 볼 수 있습니다 .

공통 리스프, 49 바이트

(defun f(a b c)(if(> a b)(1+(f(+(- a b)c)b c))1))

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

재귀 함수, 솔루션을 찾지 못하면 스택 오버플로.

PowerShell , 95 94 바이트

$g=$args[0]
$c=$args[1]
$f=$args[2]
$p=0
$d=0
1..$g|%{$d+=1;$p+=$c;if($p-ge$g){$d;exit}$p-=$f}

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