Latar Belakang

Ada teka-teki umum yang berbunyi seperti ini:

Seekor siput berada di dasar sumur 30 kaki. Setiap hari siput mampu memanjat 3 kaki. Pada malam hari ketika mereka tidur, mereka meluncur turun 2 kaki. Berapa hari yang dibutuhkan siput untuk keluar dari sumur?

Jawaban intuitifnya adalah

30 hari, karena siput naik 1 kaki per hari selama 30 hari untuk mencapai puncak,

tetapi sebenarnya jawabannya adalah

28 hari, karena begitu siput 27 kaki di udara (setelah 27 hari), mereka hanya akan memanjat 3 kaki yang tersisa ke atas pada hari ke 28.

Tantangan

Tantangan ini menggeneralisasikan teka-teki ini. Diberikan tiga bilangan bulat positif sebagai input, mewakili tinggi total, tinggi pendakian, dan tinggi jatuh, kembalikan jumlah hari yang diperlukan untuk keluar dari sumur.

Jika siput tidak dapat keluar dari sumur, Anda dapat mengembalikan 0, mengembalikan nilai palsu, atau melemparkan pengecualian. Anda juga dapat menulis kode yang akan berhenti jika dan hanya jika ada solusi.

Jika mau, Anda dapat menganggap tinggi jatuh sebagai bilangan bulat negatif.

Uji Kasus

(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) -> Tidak ada
(81, 14, 14) -> Tidak ada

Mencetak gol

Ini adalah kode-golf , jadi jawaban tersingkat di setiap bahasa menang.

Grey Snail , 1206 byte untuk I / O numerik, 149 byte untuk I / O unary

Untuk kesenangan. Komposisi program pertama:

• 451 byte, mengonversi angka menjadi titik-titik
• 121 byte, fungsi inti (versi yang terpisah ditulis di bawah)
• 634 byte, mengubah titik menjadi angka

Ambil input dan output numerik. Input adalah A, B, Cmasing-masing. Dibandingkan dengan O(1)jawaban lain (dekat) , kode ini memiliki kompleksitas O(n). Tetapi untuk jumlah yang besar, itu mungkin menghabiskan memori Anda terlebih dahulu.

Tunggu jika tidak ada solusi yang ditemukan.

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]

fadalah fungsi (mungkin) rekursif untuk mengubah bilangan bulat menjadi titik-titik. Argumen disimpan dalam [p]dan output dalam [o].

Uadalah pengujian fungsi S1>=S2, menyimpan parameter B, Asementara menyimpan A-Bke A.

Kode mulai dari Dadalah sebuah rintisan yang mengubah titik menjadi angka.

Prinsip dasarnya adalah sama dengan jawaban C saya (merobek output palsu untuk solusi yang tidak mungkin).

Versi mandiri, 149 156 157 167 170 230 byte, hanya mendukung I / O unary

Input harus berupa titik, misalnya ..........untuk 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]

Umenghitung A=A-B, dan melompat ke Dkapan A<=0. Jika tidak $memberikan A+Cke Adan panggilan U.

Tunggu jika tidak ada solusi yang ditemukan.

Trik: menyalahgunakan kemampuan "kompiler" untuk menafsirkan string kosong. Anda dapat merobek kondisi dalam GOTOpernyataan untuk membuat lompatan tanpa syarat dan trik yang sama berhasil POP.

Catatan: Saya dapat golf lebih dari 3 byte tetapi dengan melakukannya, jawaban saya dan WheatWizard akan memiliki logika yang sama persis. Hasilnya mungkin solusi GraySnail terpendek dan saya mencoba untuk membuktikannya.

Catatan: jumlah byte dipertanyakan oleh Martin Ender dalam komentar. Tampaknya tidak ada konsensus yang jelas tentang apa yang harus dilakukan dengan nama, ekspresi lambda rekursif dalam jawaban C #. Jadi saya telah mengajukan pertanyaan di Meta tentang hal itu.

C # (.NET Core) , 32 31 byte

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

Cobalah online!

Pendekatan rekursif. Jika siput tidak dapat melarikan diri, itu berakhir dengan pesan berikut:Process is terminating due to StackOverflowException.

• 1 byte disimpan berkat LiefdeWen!

GREY SNAIL, 219 206 169 167 159 156 146 byte (IO unary)

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].

Saya pikir saya bisa bermain golf ini sedikit.

JavaScript (ES6), 31 28 27 byte

Disimpan beberapa byte berkat @Arnauld

Saya tidak menyadari kita bisa gagal kecuali. Cukup yakin ini optimal:

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

Tetapkan ke variabel dengan misalnya f=, lalu panggil like f(climb)(fall)(height). Melempar InternalError: too much recursionjika pendakian tidak mungkin.

JavaScript (ES6), 38 byte

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

Fungsi rekursif yang mengembalikan jumlah hari, atau NaNuntuk tidak pernah.

Uji kasus

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)))

Excel, 51 46 byte

-1 byte terima kasih kepada @ Scarabee .

-4 karena INT (x) = LANTAI (x, 1)

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

Input diambil dari Sel A1, B1 dan C1 masing-masing. Pengembalian FALSEuntuk skenario yang tidak valid.

C (gcc), 39 43 44 46 47 58 60 byte

Hanya pada GCC 32-bit dan semua optimizaiton dimatikan.

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

Kembalikan 0 ketika solusi tidak mungkin. Versi modifikasi dari solusi rekursif asli.

Terinspirasi oleh solusi @Jonah J dan solusi @CarlosAlejo C #.

Saya akan memperbarui versi yang diperluas nanti (setelah saya menyelesaikan jawaban Gray Snail saya).

Java (OpenJDK 8) , 35 byte

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

Cobalah online!

Matematika menang!

Kredit

• -1 byte terima kasih kepada Kevin Cruijssen

Python 2 , 37 byte

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

Cobalah online!

Akhirnya mendapatkan versi rekursif saya di bawah perhitungan standar saya (saya melewati hitungan ke fungsi saya daripada menambahkannya sebelum memanggilnya).

Python 2 , 4346 byte

#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]

Cobalah online!

Dicukur 3 byte dengan berdagang "__ dan 1" untuk "__> 0".

Menggunakan tipuan boolean, pada dasarnya mengeksekusi:

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 byte

Meminjam dari jawaban lain:

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

Memberikan kesalahan jika tidak ada solusi.

J, 25 byte

Pertama solusi yang bagus, yang merupakan cheat, karena mengasumsikan bahwa "apa pun selain hasil bilangan bulat positif" sama dengan "Tidak ada":

>.>:%/2-/\

penjelasan

• 2-/\gunakan jendela panjang 2 di 3 input item kami, menempatkan tanda minus di antara masing-masing, yang untuk input 30 3 2, misalnya, kembali27 1
• %/ letakkan simbol pembagian di antara setiap elemen daftar, dalam kasus kami daftar hanya memiliki dua item, jadi itu berarti "membagi 27 dengan 1"
• >: selisih dengan 1
• >. ambil langit-langit

solusi resmi

Berikut ini adalah solusi resmi yang mengubah negatif dan tak terhingga menjadi 0, yang bagian saya tidak dapat menemukan solusi singkat yang memuaskan untuk:

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

TIO

Perl 5 , 37 byte

35 byte kode +2 untuk -pa.

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

Cobalah online!

PHP> = 7.1, 60 byte

mencetak 0 tanpa melarikan diri

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

PHP Sandbox Online

PHP> = 7.1, 67 byte

tidak mencetak apapun tanpa melarikan diri

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

PHP Sandbox Online

Mathematica, 47 40 39 byte

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

-7 byte dari @KeyuGan

Ruby , 49 47 byte

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

Melempar pengecualian jika siput tidak bisa keluar

Cobalah online!

Batch, 66 byte

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

Kasing uji terakhir kedua tidak mencetak apa pun, dan kasing tes terakhir benar-benar jatuh CMD.EXE...

05AB1E , 19 byte

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

Penjelasan:

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

Untuk nilai yang tidak valid, ini dapat mengembalikan nilai kurang dari 1. Namun, pada 05AB1E, hanya 1 yang benar sehingga memenuhi persyaratan bahwa output untuk nilai yang tidak valid harus palsu.

Cobalah online!

PHP, 60 byte

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

mencetak Nuntuk None. Jalankan dengan -r.

05AB1E , 12 byte

.×ηO<²›1k2÷>

Cobalah online!

Mencetak 0jika tidak mungkin.

Masukkan format:

[climb, -fall]
height

Japt , 12 byte

@UµV-W §W}aÄ

Uji secara online!

Output undefineduntuk tidak pernah, setelah mungkin membekukan browser Anda untuk sementara waktu, jadi harap berhati-hati.

Saya tidak yakin ini optimal. oWV-W lbekerja pada semua kecuali tiga kasus terakhir ...

Haskell , 30 29 byte

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

Cobalah online!

Lebih pendek dari jawaban Haskell yang ada. Mungkin orang lain bisa mengalahkan saya.

Ini menggunakan pendekatan rekursif untuk memecahkan masalah. Setiap rekursi pada dasarnya adalah hari pergerakan untuk siput. Jika jarak yang tersisa ke ujung kurang dari jarak yang masih dibutuhkan, kami mengakhiri rekursi kami.

QBIC , 31 23 byte

Hanya memperhatikan persyaratan berubah. Versi ini tidak memeriksa apakah siput akan mencapai bagian atas sumur.

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

Penjelasan di bawah ini, untuk versi asli yang memeriksa apakah ada solusi, juga mencakup semua bagian yang relevan dari kode ini.

Asli, jawaban 31 byte:

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

Penjelasan

~           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)

Cobalah online! (Oke, tidak juga: ini adalah terjemahan dari QBIC ke QBasic code dijalankan di repl.it (agak kurang) lingkungan QBasic)

Excel VBA, 47 Bytes

Fungsi jendela langsung VBE anonim yang mengambil input dari rentang [A1:C1]dari ActiveSheetobjek output ke jendela langsung VBE

Solusi berbasis rumus Excel ini tampaknya lebih kecil daripada solusi VBA murni yang bisa saya buat :(

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

Haskell, 47 55 byte (48 jika diperlukan tuple)

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

variasi tuple

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

Penjelasan

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

Python 3, 41 Bytes

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

Kesalahan untuk Tidak Pernah

Outgolf @veganaiZe

APL (Dyalog) , 13 byte

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

Cobalah online!

Kesalahan pembagian dengan nol jika siput tidak bisa keluar dari sumur.

C # (.NET Core) , 37 byte

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

Lambda non-rekursif. Formula penggunaan ditemukan di sini . Dapat dipersingkat 6 byte jika "hasil negatif" adalah cara yang valid untuk mengembalikan kegagalan; saat ini mengembalikan 0 sebagai gantinya.

Python v2 & v3, 44 Bytes

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

^ Rekursi tak terbatas (kesalahan) untuk Tidak ada kasus.

Kalkulator yang Dapat Diprogram HP-15C, 26 Bytes

Tiga angka dimuat ke dalam tumpukan sebelum menjalankan program. Tinggi jatuh dimasukkan sebagai angka negatif. Jika siput tidak dapat keluar dari sumur, hasilnya adalah angka negatif atau kesalahan # 0 (zero Divide error).

Kode op dalam hex:

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

Makna instruksi:

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

Anda dapat mencoba program dengan simulator HP-15C ini .

Gangguan Umum, 49 byte

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

Cobalah online!

Fungsi rekursif, stack overflow jika tidak ada solusi yang ditemukan.

PowerShell , 95 94 byte

$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}

Cobalah online!