Puzzle Kendi 3 dan 5 Liter

14

Anda mungkin telah melihat yang satu ini di Die Hard: With a Vengeance ... Pertanyaan ini didasarkan pada Puzzle Kendi 3 dan 5 Liter yang terkenal, tetapi dengan kemiringan yang sedikit berbeda.

Golf beberapa kode yang ketika diberi bilangan bulat antara 1 dan 100 akan memberi Anda instruksi tercepat untuk mengukur ke dalam tangki, jumlah liter air yang sesuai dari air mancur, menggunakan kendi 3 liter dan kendi 5 liter.

Tidak ada gradasi pada salah satu kendi; air mancur berlimpah dalam pasokan air, dan tangki diasumsikan dikosongkan pada awal setiap pelaksanaan kode.

Anda tidak dapat mengakses air dari tangki setelah masuk ke dalam tangki.

Format eksekusi adalah sebagai berikut:

Memasukkan:

4 sebagai contoh.

Keluaran

Keluarkan setiap langkah bernomor, seperti yang ditunjukkan, diikuti oleh penghitungan volume tabung 5L, tabung 3L dan tangki. Format penghitungan juga ditunjukkan di bawah ini. Jumlah langkah juga harus ditampilkan di akhir langkah.

1) Fill 5L jug

5L: 5, 3L: 0, T: 0

2) Pour from 5L jug into 3L jug

5L: 2, 3L: 3, T: 0

3) Empty 3L jug

5L: 2, 3L: 0, T: 0

4) Pour from 5L jug into 3L jug

5L: 0, 3L: 2, T: 0

5) Fill 5L jug

5L: 5, 3L: 2, T: 0

6) Pour from 5L jug into 3L jug

5L: 4, 3L: 3, T: 0

7) Pour from 5L jug into tank

5L: 0, 3L: 3, T: 4

Volume measured out in 7 turns

Contoh 2

Memasukkan: 8

Keluaran:

1) Fill 5L jug

5L: 5, 3L: 0, T: 0

2) Pour from 5L jug into tank

5L: 0, 3L: 0, T: 5

3) Fill 3L jug

5L: 0, 3L: 3, T: 5

4) Pour from 3L jug into tank

5L: 0, 3L: 0, T: 8

Volume measured out in 4 turns

Konvensi

  1. Fill xL jug - Mengisi kendi terkait ke atas dari air mancur
  2. Empty xL jug - mengosongkan isi kendi terkait ke dalam air mancur
  3. Pour from xL jug into yL jug - Tuang isi dari kendi xL ke dalam kendi yL
  4. Pour from xL jug into tank - Tuang isi tabung xL ke dalam tangki

Kode terpendek menang.

WallyWest
sumber
kemungkinan duplikat masalah Water-Bucket
Howard
4
@ Howard, pertanyaan lama tidak jelas (tidak memiliki kriteria menang) dan ditinggalkan, jadi saya pikir yang ini lebih baik dan tidak boleh ditutup.
Victor Stafusa
Sebut saya gila, tetapi bukankah solusi optimalnya adalah 1. Tambahkan 5L sebanyak mungkin, 2. Tambahkan 3L jika diperlukan, 3. Tambahkan porsi 2L atau 1L yang sudah terpecahkan sesuai kebutuhan?
1
@LegoStormtroopr Ketika semuanya bermuara, benar. Tapi saya berharap kode-golf akan sesuai.
WallyWest
3
@LegoStormtroopr Saya juga berpikir begitu, tetapi bukankah 6 dan 9 contoh tandingan?
Paul Prestidge

Jawaban:

6

Rubi, 407 376 365 331 324 323

Ini agak sulit dibaca ...

x=y=n=d=0
g=gets.to_i
"#{[43435,102,t=45,t,12,t,12,t,t][g+~d]||12}".chars{|c|n+=1
puts [eval(["x-=t=[3-y,x].min;y+=t"+t=";'Pour from 5L jug into 3L jug'","x=5;'Fill 5L jug'","d+=x;x=0"+t.sub(/3.+/,"tank'")][c.ord%3].tr t='35xy',c<?3?t:'53yx'),"5L: #{x}, 3L: #{y}, T: #{d}"]}while g>d
$><<"Volume measured out in #{n} turns"

Mengambil input pada STDIN. Contoh run untuk N = 10:

Fill 5L jug
5L: 5, 3L: 0, T: 0
Pour from 5L jug into tank
5L: 0, 3L: 0, T: 5
Fill 5L jug
5L: 5, 3L: 0, T: 5
Pour from 5L jug into tank
5L: 0, 3L: 0, T: 10
Volume measured out in 4 turns
Paul Prestidge
sumber
2
"Ini agak sulit dibaca ..." - Sobat, bukankah itu maksud dari kode golf ...? ;)
WallyWest
4
@WallyWest Tidak. Kami memiliki tag [kebingungan] untuk itu! Pendapat saya yang sederhana adalah bahwa dari dua solusi codegolf dengan panjang yang sama, yang paling mudah dibaca adalah yang terbaik.
Tn. Lister
@ Tuan cukup adil, tetapi kadang-kadang kebingungan adalah satu-satunya cara untuk mencapai penyusutan yang diinginkan ...
WallyWest
5

T-SQL 2012: 1410 1302

Upaya quixotic lain pada pertanyaan dalam SQL, tetapi yang ini menawarkan kesempatan yang menyenangkan untuk bermain dengan beberapa opsi fungsi jendela baru di versi 2012. Selain itu, ia mengeksploitasi CTE rekursif, yang mungkin tidak mengesankan di sebagian besar bahasa pemrograman, tetapi rekursi dalam SQL seperti beralih dari kuda dan kereta ke Ferrari.

Mesin di jantung ini ada di jalur 5-12, yang menggunakan CTE rekursif dan fungsi jendela untuk membangun tabel sebagian besar angka yang diperlukan untuk menyelesaikan masalah. Perhatikan secara khusus tes untuk 3, 4, 6, atau 9, yang memastikan pendekatan optimal untuk solusi dengan 3s dari angka-angka tersebut dan seterusnya. (Secara teknis, ini adalah ikatan untuk 4 antara pendekatan 3-1 dan 2-2, tetapi melakukannya dengan cara ini membuat saya banyak karakter.) Maka itu masalah sederhana untuk bergabung dengan tabel pencarian dari langkah-langkah optimal untuk berbagai potongan masalah dan gunakan fungsi jendela lain untuk memberi nomor langkah dengan benar.

Jika Anda tidak memiliki MS SQL di sekitar, mainkan di SQLFiddle.

DECLARE @i INT=42,@l VARCHAR(9)='L jug ',@k VARCHAR(99)='into tank
5L: 0, 3L: 0, T: ',@o VARCHAR(99)='
5L: 5, 3L: 0, T: ',@n CHAR(1)='
',@5 VARCHAR(99)=') Pour from 5',@3 VARCHAR(99)=') Pour from 3'
;WITH t AS (SELECT @i i,(@i-@i%5)%5 j
UNION ALL
SELECT i-5,(i-i%5)%5+5 FROM t WHERE i>=5 AND i NOT IN(6,9)
UNION ALL
SELECT i-3,3FROM t WHERE i in(3,4,6,9)
UNION ALL
SELECT i-i,i FROM t WHERE i<3 AND i>0)
SELECT t.i,t.j,v.s,ROW_NUMBER()OVER(PARTITION BY t.j ORDER BY t.i DESC)x,SUM(t.j)OVER(ORDER BY t.i DESC ROWS UNBOUNDED PRECEDING)y INTO #q FROM(VALUES(1,5),(2,3),(3,2),(5,2))v(i,s) JOIN t ON t.j = v.i
SELECT z.b FROM(SELECT ROW_NUMBER()OVER(ORDER BY q.i DESC,w.s)a,CAST(ROW_NUMBER()OVER(ORDER BY q.i DESC,w.s)AS VARCHAR)+w.v+CAST(y-CASE WHEN q.s!=w.s THEN q.j ELSE 0 END AS VARCHAR)b
FROM(VALUES(5,1,') Fill 5'+@l+@o),(5,2,@5+@l+@k),(3,1,') Fill 3'+@l+@n+'5L: 0, 3L: 3, T: '),(3,2,@3+@l+@k),(2,1,') Fill 5'+@l+@o),(2,2,@5+@l+' into 3'+@l+@n+'5L: 2, 3L: 3, T: '),(2,3,@5+@l+@k),(1,1,') Fill 3'+@l+@n+'5L: 0, 3L: 3, T: '),(1,2,@3+@l+'into 5'+@l+@n+'5L: 3, 3L: 0, T: '),(1,3,') Fill 3'+@l+@n+'5L: 3, 3L: 3, T: '),(1,4,@3+@l+'into 5'+@l+@n+'5L: 5, 3L: 1, T: '),(1,5,@3+@l+'into tank'+@o))w(i,s,v)JOIN #q q ON w.i=q.j
UNION
SELECT 99,'Volume measured out in '+CAST(COUNT(*)AS VARCHAR)+' turns'
FROM #q)z

Hasil untuk input 42:

1) Fill 5L jug 
5L: 5, 3L: 0, T: 0
2) Pour from 5L jug into tank
5L: 0, 3L: 0, T: 5
3) Fill 5L jug 
5L: 5, 3L: 0, T: 5
4) Pour from 5L jug into tank
5L: 0, 3L: 0, T: 10 
5) Fill 5L jug 
5L: 5, 3L: 0, T: 10 
6) Pour from 5L jug into tank
5L: 0, 3L: 0, T: 15 
7) Fill 5L jug 
5L: 5, 3L: 0, T: 15 
8) Pour from 5L jug into tank
5L: 0, 3L: 0, T: 20 
9) Fill 5L jug 
5L: 5, 3L: 0, T: 20 
10) Pour from 5L jug into tank
5L: 0, 3L: 0, T: 25 
11) Fill 5L jug 
5L: 5, 3L: 0, T: 25 
12) Pour from 5L jug into tank
5L: 0, 3L: 0, T: 30 
13) Fill 5L jug 
5L: 5, 3L: 0, T: 30 
14) Pour from 5L jug into tank
5L: 0, 3L: 0, T: 35 
15) Fill 5L jug 
5L: 5, 3L: 0, T: 35 
16) Pour from 5L jug into tank
5L: 0, 3L: 0, T: 40 
17) Fill 5L jug 
5L: 5, 3L: 0, T: 40 
18) Pour from 5L jug  into 3L jug 
5L: 2, 3L: 3, T: 40 
19) Pour from 5L jug into tank
5L: 0, 3L: 0, T: 42 
Volume measured out in 9 turns 

Edit:

Golf peningkatan skor yang layak oleh

  • menghilangkan +5 yang tidak perlu di baris pertama CTE, dan klausa WHERE yang diperlukan
  • sejalan dengan tabel VALUES, menghemat pernyataan DECLARE yang mahal
  • ingat untuk mengonversi Windows double-byte CRLFs ke gaya Unix kali ini.
Jonathan Van Matre
sumber
+1 untuk keberanian, kawan ... Sangat mengesankan dan terima kasih atas tautan biola MS SQL!
WallyWest
1
Haha, terima kasih bung! Saya benar-benar percaya ini mungkin dapat dimenangkan ketika saya mulai dan memiliki permintaan inti rekursif. Tetapi bahkan dengan golf string yang luas, kehebatan menambahkan semua teks yang diperlukan menghancurkan solusi terakhir saya. :)
Jonathan Van Matre
Jika saya bisa melakukan karunia "paling kreatif", Anda akan mendapatkannya ...
WallyWest
+1 untuk membuat saya LOL. T-SQL jelas merupakan klub yang aneh untuk dibawa dalam tas kode-golf Anda.
Comintern
5

Javascript: 481

Upaya pertama dalam bermain golf, saran sangat dihargai

n=["3L jug","5L jug","tank"];l=[0,0,0];t=[3,5,0];h=0;c=console;function e(d){l[d]=t[d];c.log(++h+") Fill "+n[d]);k()}function m(d,g){s=l[d];f=l[g];b=s+f>t[g];l[g]=b?t[g]:f+s;l[d]=b?s-(t[g]-f):0;c.log(++h+") Pour from "+n[d]+" into "+n[g]);k()}function k(){c.log("5L: "+l[1]+", 3L: "+l[0]+", T: "+l[2])}a=prompt();for(t[2]=a;4<a;)e(1),m(1,2),a-=5;2<a&&(e(0),m(0,2),a-=3);1<a&&(e(1),m(1,0),m(1,2),a=0);0<a&&(e(0),m(0,1),e(0),m(0,1),m(0,2));c.log("Volume measured out in "+h+" turns")

Ini kacau dengan beberapa angka karena tidak memeriksa apakah lebih baik untuk menuangkan 3 atau 5, contoh: 9 memberi 9 belokan, bukan 6, saya mungkin memperbaikinya nanti

Rekatkan di konsol

Dari 553 hingga 481 terima kasih kepada @WallyWest

Sam
sumber
1
Anda dapat mencoba: n=["3L jug","5L jug","tank"];l=[0,0,0];t=[3,5,0];h=0;c=console;function e(d){l[d]=t[d];c.log(++h+") Fill "+n[d]);k()}function m(d,g){s=l[d];f=l[g];b=s+f>t[g];l[g]=b?t[g]:f+s;l[d]=b?s-(t[g]-f):0;c.log(++h+") Pour from "+n[d]+" into "+n[g]);k()}function k(){c.log("5L: "+l[1]+", 3L: "+l[0]+", T: "+l[2])}a=prompt();for(t[2]=a;4<a;)e(1),m(1,2),a-=5;2<a&&(e(0),m(0,2),a-=3);1<a&&(e(1),m(1,0),m(1,2),a=0);0<a&&(e(0),m(0,1),e(0),m(0,1),m(0,2));c.log("Volume measured out in "+h+" turns") untuk 481 karakter ...
WallyWest
@WallyWest terima kasih, tidak berpikir tentang menggunakan operator logis, bukan ifs
Sam
3

Jawa, 610

class X{int n,c=0,t=0;public void static main(String[]a){n=Integer.parseInt(a[0]);String s,b,f,k,m,u;b="5L";s="3L";k="tank";u="Fill %s jug\n5L: %d, 3L: %d, T: %d";m="\nPour from %s jug into %s\n5L: %d, 3L: %d, T: %d";f=u+m;for(;n>4;)z(f,2,5,b,5,0,t,b,k,0,0,t+=5);while(n!=0){if(n==1)z(f+f+m,5,1,s,0,3,t,s,b,3,0,t,s,3,3,t,s,b,5,1,t,s,k,5,0,t+1);if(n==3)z(f,2,3,s,0,3,t,s,k,0,0,t+3);z(f+m,3,2,b,5,0,t,b,s,2,3,t,b,k,0,3,t+=2);if(n==2)z("Empty 3L jug\n5L: 0, 3L: 0,T: %d",1,0,t)}z("Volume measured out in %d turns",0,0,c)}void z(String s,int o,int w,Object...a){c+=o;n-=w;System.out.println(String.format(s,a))}}

Saya mengambil solusi dari Sumedh dan memutarnya. Saya ingin memasukkannya ke dalam komentar tetapi reputasi saya tidak cukup :(. Ini adalah 40% lebih sedikit, saya pikir itu setidaknya harus dibagikan. Namun masih jauh dari pertama ...

Berikut adalah ungolfed:

    class X{
    int n,c=0,t=0;
    public void static main(String[] a){
        n=Integer.parseInt(a[0]);
        String s,b,f,k,m,u;
        b="5L";
        s="3L";
        k="tank";
        u="Fill %s jug\n5L: %d, 3L: %d, T: %d";
        m="\nPour from %s jug into %s\n5L: %d, 3L: %d, T: %d";
        f=u+m;
        for(;n>4;)z(f,2,5,b,5,0,t,b,k,0,0,t+=5);
        while(n!=0)
        {
            if(n==1)z(f+f+m,5,1,s,0,3,t,s,b,3,0,t,s,3,3,t,s,b,5,1,t,s,k,5,0,t+1);
            if(n==3)z(f,2,3,s,0,3,t,s,k,0,0,t+3); 
            z(f+m,3,2,b,5,0,t,b,s,2,3,t,b,k,0,3,t+=2);
            if(n==2)z("Empty 3L jug\n5L: 0, 3L: 0,T: %d",1,0,t);
        }
        z("Volume measured out in %d turns",0,0,c);
    }
    void z(String s,int o, int w,Object... a){
        c+=o;
        n-=w;
        System.out.println(String.format(s,a));
    }
}

NB: ini hanya berfungsi pada jalankan pertama. Jalankan kembali dan hasilnya akan salah (karena variabel global).

Versi berikut ini aman, tetapi kami kehilangan 2 karakter, mulai dari 610 hingga 612:

    class X{
    int n,c,t;
    public void static main(String[] a){
        n=Integer.parseInt(a[0]);
        String s,b,f,k,m,u;
        t=c=0;
        b="5L";
        s="3L";
        k="tank";
        u="Fill %s jug\n5L: %d, 3L: %d, T: %d";
        m="\nPour from %s jug into %s\n5L: %d, 3L: %d, T: %d";
        f=u+m;
        for(;n>4;)z(f,2,5,b,5,0,t,b,k,0,0,t+=5);
        while(n!=0)
        {
            if(n==1)z(f+f+m,5,1,s,0,3,t,s,b,3,0,t,s,3,3,t,s,b,5,1,t,s,k,5,0,t+1);
            if(n==3)z(f,2,3,s,0,3,t,s,k,0,0,t+3); 
            z(f+m,3,2,b,5,0,t,b,s,2,3,t,b,k,0,3,t+=2);
            if(n==2)z("Empty 3L jug\n5L: 0, 3L: 0,T: %d",1,0,t);
        }
        z("Volume measured out in %d turns",0,0,c);
    }
    void z(String s,int o, int w,Object... a){
        c+=o;
        n-=w;
        System.out.println(String.format(s,a));
    }
}

Output sampel untuk N = 69:

Fill 5L jug
5L: 5, 3L: 0, T: 0
Pour from 5L jug into tank
5L: 0, 3L: 0, T: 5
Fill 5L jug
5L: 5, 3L: 0, T: 5
Pour from 5L jug into tank
5L: 0, 3L: 0, T: 10
Fill 5L jug
5L: 5, 3L: 0, T: 10
Pour from 5L jug into tank
5L: 0, 3L: 0, T: 15
Fill 5L jug
5L: 5, 3L: 0, T: 15
Pour from 5L jug into tank
5L: 0, 3L: 0, T: 20
Fill 5L jug
5L: 5, 3L: 0, T: 20
Pour from 5L jug into tank
5L: 0, 3L: 0, T: 25
Fill 5L jug
5L: 5, 3L: 0, T: 25
Pour from 5L jug into tank
5L: 0, 3L: 0, T: 30
Fill 5L jug
5L: 5, 3L: 0, T: 30
Pour from 5L jug into tank
5L: 0, 3L: 0, T: 35
Fill 5L jug
5L: 5, 3L: 0, T: 35
Pour from 5L jug into tank
5L: 0, 3L: 0, T: 40
Fill 5L jug
5L: 5, 3L: 0, T: 40
Pour from 5L jug into tank
5L: 0, 3L: 0, T: 45
Fill 5L jug
5L: 5, 3L: 0, T: 45
Pour from 5L jug into tank
5L: 0, 3L: 0, T: 50
Fill 5L jug
5L: 5, 3L: 0, T: 50
Pour from 5L jug into tank
5L: 0, 3L: 0, T: 55
Fill 5L jug
5L: 5, 3L: 0, T: 55
Pour from 5L jug into tank
5L: 0, 3L: 0, T: 60
Fill 5L jug
5L: 5, 3L: 0, T: 60
Pour from 5L jug into tank
5L: 0, 3L: 0, T: 65
Fill 5L jug
5L: 5, 3L: 0, T: 65
Pour from 5L jug into 3L
5L: 2, 3L: 3, T: 65
Pour from 5L jug into tank
5L: 0, 3L: 3, T: 67
Empty 3L jug
5L: 0, 3L: 0,T: 67
Fill 5L jug
5L: 5, 3L: 0, T: 67
Pour from 5L jug into 3L
5L: 2, 3L: 3, T: 67
Pour from 5L jug into tank
5L: 0, 3L: 3, T: 69
Volume measured out in 33 turns
Narmer
sumber
2

Jawa: 984

Ini kodenya

class X{public static void main(String[] s){int n=Integer.parseInt(s[0]);int t=0;int c=0;while(n>4){n-=5;System.out.println("Fill 5L jug\n5L: 5, 3L: 0, T: "+t+"\nPour from 5L jug into tank\n5L: 0, 3L: 0, T: "+(t+5));t+=5;c+=2;}while(n!=0){switch(n){case 1:System.out.println("Fill 3L jug\n5L: 0, 3L: 3, T: "+t+"\nPour from 3L jug into 5L jug\n5L: 3, 3L: 0, T: "+t+"\nFill 3L jug\n5L: 3, 3L: 3, T: "+t+"\nPour from 3L jug into 5L jug\n5L: 5, 3L: 1, T: "+t+"\nPour from 3L jug into tank\n5L: 5, 3L: 0, T: "+(t+1));n=0;c+=5;break;case 3:System.out.println("Fill 3L jug\n5L: 0, 3L: 3, T: "+t+"\nPour from 3L jug into tank\n5L: 0, 3L: 0, T: "+(t+3));n=0;c+=2;break;default:System.out.println("Fill 5L jug\n5L: 5, 3L: 0, T: "+t+"\nPour from 5L jug into 3L jug\n5L: 2, 3L: 3, T: "+t+"\nPour from 5L jug into tank\n5L: 0, 3L: 0, T: "+(t+2));n-=2;c+=3;t+=2;if(n==2){System.out.println("Empty 3L jug\n5L: 0, 3L: 0,T: "+t);c++;}break;}}System.out.println("Volume measured out in "+c+" turns");}}

Input dari baris perintah. misalnya: java X 4

Sumedh
sumber
Saya tidak bisa berkomentar di tempat lain, jadi saya berkomentar di sini. @Lego Stormtroopr, ada solusi alternatif yang optimal, di mana untuk sisa 4L, Anda dapat melakukan hal yang sama untuk 2L (3 langkah) lalu kosongkan kendi 3L, & kemudian ulangi untuk sisa 2L, sehingga membuatnya lengkap dalam 7 langkah .... yang sama untuk solusi Anda di mana 4L dibagi menjadi: 3L ke dalam tangki (2 langkah) & metode 5 langkah untuk sisa 1L.
Sumedh
@ Chron, apakah kode Anda berfungsi untuk nilai N, di mana N% 5 adalah 1 atau 4? Saya tidak mengerti ruby, itu sebabnya saya tidak bisa mengujinya sendiri ...
Sumedh
seharusnya, misalnya melihat di sini di N = 11: ideone.com/3ZDuOS Anda dapat menekan edit di kiri atas dan mengubah STDIN ke nilai lain jika Anda ingin memeriksanya.
Paul Prestidge
Wow, Anda punya solusi yang lebih optimal daripada milik saya .... bagaimana Anda memutuskan kapan harus berhenti 5L & menggunakan 3L? Maksud saya, jika input 81, maka Anda mendapatkan 75L menggunakan 5L, & kemudian menggunakan 3L. jika ip adalah 89, maka 5L digunakan hingga 80L, dan sisanya adalah 3L.
Sumedh
Simpan beberapa karakter: main(String[]s), int n=Integer.parseInt(s[0]),t=0,c=0;, java.io.PrintStream q=System.out;. Juga, dimungkinkan untuk menulis yang pertama whilesebagai satu atau dua karakter lebih pendek for. Selanjutnya, Anda Stringberulang, Anda dapat mencoba menyimpan bagian berulang dalam variabel atau membuat fungsi yang membuatnya hanya menggunakan satu cetakan String.
Victor Stafusa
2

Python 2.7 - 437

Bukan kode terpendek, tapi saya pikir ini adalah cara paling optimal untuk menyelesaikan ini.

Seperti yang saya nyatakan dalam komentar, cara paling optimal untuk menghitung ini:

  1. Ambil sebanyak mungkin potongan 5L - divmod(amount,5). Ini akan memberi Anda salah satu dari 4,3,2,1 sebagai sisanya.
  2. Ambil 3 (jika mungkin) dari sisanya.
  3. Yang tersisa 1 atau 2 sebagai sisanya. Gunakan solusi optimal untuk keduanya yang dapat diketahui sebelumnya sebagai:

    1. 1L, 5 langkah: 3L -> 5L, 3L -> 5L, meninggalkan 1L di 3L, 3L (memegang 1L) -> tangki
    2. 2L, 3 langkah: 5L -> 3L, menyisakan 2L di tangki 5L, 5L (memegang 2L) ->

Kode:

j,T="%dL jug","tank"
A="\n5L: %d, 3L: %d, T: %d"
F,P="Fill "+j+A,"Pour from "+j+" into %s"+A
f,r=divmod(input(),5)
o,t=f*5,[]
for i in range(f):o+=[F%(5,5,0,5*i),P%(5,T,0,0,5*i+5)]
if r>2:o+=[F%(3,0,3,t),P%(3,T,0,0,t+3)];r-=3;t+=3
if r==2:o+=[F%(5,5,0,t),P%(5,j%3,2,3,t),P%(5,T,0,3,t+2)]
if r==1:o+=[F%(3,0,3,t),P%(3,j%5,3,0,t),F%(3,3,3,t),P%(3,j%5,5,1,t),P%(3,T,5,0,t+1)]
print"\n".join(o),'\n',"Volume measured out in %d turns"%len(o)

Dan output untuk 4L dalam 7 langkah:

Fill 3L jug
5L: 0, 3L: 3, T: 0
Pour from 3L jug into tank
5L: 0, 3L: 0, T: 3
Fill 3L jug
5L: 0, 3L: 3, T: 3
Pour from 3L jug into 5L jug
5L: 3, 3L: 0, T: 3
Fill 3L jug
5L: 3, 3L: 3, T: 3
Pour from 3L jug into 5L jug
5L: 5, 3L: 1, T: 3
Pour from 3L jug into tank
5L: 5, 3L: 0, T: 4
Volume measured out in 7 turns

sumber
Anda menetapkan int ke o dan kemudian mencoba menambahkan daftar. Saya pikir Anda bermaksud menetapkan o, t = [], f * 5 pada baris 5.
psion5mx
1
Kalah pernyataan, rentang, dan jika pernyataan dan Anda bisa turun ke 399 pada satu baris: j, T = "% dL kendi", "tank"; A = "\ n5L:% d, 3L:% d, T :% d "; F, P =" Isi "+ j + A," Tuang dari "+ j +" ke dalam% s "+ A; f, r = divmod (input (), 5); t, o = f * 5, []; o = [F% (5,5,0,5 * i), P% (5, T, 0,0,5 * i + 5)] * f + [F% (3,0, 3, t), P% (3, T, 0,0, t + 3)] * (r> 2) + [F% (5,5,0, t), P% (5, j% 3, 2,3, t), P% (5, T, 0,3, t + 2)] * (r == 2) + [F% (3,0,3, t), P% (3, j % 5,3,0, t), F% (3,3,3, t), P% (3, j% 5,5,1, t), P% (3, T, 5,0, t +1)] * (r dalam [1,4]); cetak "\ n" .join (o), "\ nVolume diukur dalam% d ternyata"% len (o)
psion5mx
1
Manipulasi yang mengesankan ... @ psion5mx Saya tidak berpikir pemrograman seperti ini dimungkinkan dengan Python? Tidak ada rentang, rekursi atau jika pernyataan?
WallyWest
Kekuatan daftar. Mengalikan daftar dengan integer menggantikan 'loop'. Mengalikan dengan boolean menggantikan 'jika'.
psion5mx
Juga - saya berhasil menurunkannya ke satu ruang (di luar tanda kutip), tetapi bisa menghilangkan semua ruang dengan mengorbankan karakter dengan mengganti (r dalam [1,4]) dengan (r% 5in [1,4] ) pada kasus ini.
psion5mx
2

Smalltalk (Smalltalk / X), 568 560 516

masukan dalam n:

    T:=j:=J:=c:=0.m:={'Pour from'.' into'.' 3L jug'.' 5L jug'.[j:=j+3.'Fill'].[J:=J+5.'Fill'].[t:=j.j:=0.''].[t:=J.J:=0.''].[r:=j min:5-J.j:=j-r.J:=J+r.''].[r:=J min:3-j.J:=J-r.j:=j+r.''].[T:=T+t.' into tank'].[c:=c+1.'\5L: %1 3L: %2 T: %3\'bindWith:J with:j with:T].['Volume measured out in %1 turns'bindWith:c]}.[n>=0]whileTrue:[s:=n.n:=0.(s caseOf:{0->[n:=-1.'<'].1->'42;02813;42;02813;062:;'.2->'53;03912;073:;'.3->'42;062:;'.4->[n:=1.'42;062:;']}otherwise:[n:=s-5.'53;073:;'])do:[:c|(m at:c-$/)value withCRs print]]

anak laki-laki ini jelas merupakan program yang paling dikaburkan yang pernah saya tulis ...

Sunting: Beberapa Smalltalks lainnya mungkin tidak mengizinkan variabel ruang kerja yang diautodikasi otomatis dan Anda harus menambahkan pernyataan. Juga bindWith: mungkin berbeda (expandWith: '<p>').

contoh output untuk n = 17:

Fill 5L jug 
5L: 5, 3L: 0, T: 0
Pour from 5L jug into tank
5L: 0, 3L: 0, T: 5
Fill 5L jug 
5L: 5, 3L: 0, T: 5
Pour from 5L jug into tank
5L: 0, 3L: 0, T: 10
Fill 5L jug 
5L: 5, 3L: 0, T: 10
Pour from 5L jug into tank
5L: 0, 3L: 0, T: 15
Fill 5L jug 
5L: 5, 3L: 0, T: 15
Pour from 5L jug into 3L jug 
5L: 2, 3L: 3, T: 15
Pour from 5L jug into tank
5L: 0, 3L: 3, T: 17
Volume measured out in 9 turns
blabla999
sumber
2

C, 567 609

#define r printf
#define l r("5L: %d, 3L: %d, T: %d\n", a, b, T);
#define j(x,y,z,w) r("%d) "#x" %dL jug\n", i++, y),z=w,l
#define e j(Empty,3,b,0)
#define f j(Fill,5,a,5)
#define g j(Fill,3,b,3)
#define o(x,y,z,w) r("%d) Pour from %dL jug into "x"\n", i++, y,z),w;l
#define t(x,y) T+=x,o("tank",y,0,x=0)
#define p(x) o("%dL jug",5,3,(a-=x,b+=x))
int N,T,i;q(x){int a=0,b=0;switch(x){case 5:f t(a,5) break;case 3:g t(b,3) break;case 1:case 2:case 4:f if(x-2){e p(2)f p(1)if(x-4){e p(3)}}t(a,5)}N-=x;}main(){T=0,i=1,scanf("%d",&N);while(N>5)q((N-6)&&(N-9)?5:3);q(N);r("Volume measured out in %d turns",i-1);}

versi tidak valid sebelumnya:

#define r printf
#define l r("5L: %d, 3L: %d, T: %d\n", a, b, T);
#define j(x,y,z,w) r("%d) "#x" %dL jug\n", i++, y),z=w,l
#define e j(Empty,3,b,0)
#define f j(Fill,5,a,5)
#define g j(Fill,3,b,3)
#define o(x,y,z,w) r("%d) Pour from %dL jug into "x"\n", i++, y,z),w;l
#define t o("tank",5,0,a=0)
#define p(x) o("%dL jug",5,3,(a-=x,b+=x))
int N,T,i;q(x){int a=0,b=0;switch(x){case 5:f t break;case 3:g t break;case 1:case 2:case 4:f if(x-2){e p(2)f p(1)if(x-4){e p(3)}}t}N-=x;}main(){T=0,i=1,scanf("%d",&N);while(N>5)q(5);q(N);r("Volume measured out in %d turns",i-1);}

dan di sini adalah kode degolfed:

#define r printf
#define l r("5L: %d, 3L: %d, T: %d\n", a, b, T);
#define j(x,y,z,w) r("%d) "#x" %dL jug\n", i++, y),z=w,l
#define e j(Empty,3,b,0)
#define f j(Fill,5,a,5)
#define g j(Fill,3,b,3)
#define o(x,y,z,w) r("%d) Pour from %dL jug into "x"\n", i++, y,z),w;l
#define t o("tank",5,0,a=0)
#define p(x) o("%dL jug",5,3,(a-=x,b+=x))
int N,T,i;
q(x)
{
    int a=0,b=0;
    switch(x)
    {
        case 5:
            f
            t 
            break;
        case 3:
            g
            t
            break;
        case 1:
        case 2:
        case 4:
            f
            if(x-2)
            {
                e
                p(2)
                f
                p(1)
                if(x-4)
                {
                    e
                    p(3)
                }
            }
            t
    }
    N-=x;
}
main()
{
    T=0,i=1,scanf("%d",&N);
    while(N&gt;
    5)q(5);
    q(N);
    r("Volume measured out in %d turns",i-1);
}
VX
sumber
Ini tidak memberikan solusi optimal untuk 9 (8 putaran, harus 6 - isi dan kosongkan 3L 3 kali).
Komintern
Juga tidak berfungsi sama sekali untuk input 1.
Comintern
Tidak berfungsi untuk 1? Kasihan ... Tapi usaha yang mengagumkan ... :)
WallyWest
ya, ada beberapa bug dan solusinya tidak selalu optimal. tapi itu membuat 1 L dalam 8 langkah ...
VX
Kiat golf pasangan - Anda dapat menghemat 6 byte dengan mengganti int N, T, i; dengan N, T, i, a, b; dan int a = 0, b = 0; dengan a = b = 0 ;. Anda juga mendapatkan 3 byte dengan menambahkan (ke definisi printf Anda. Saya pikir gain terbesar akan mengurangi pernyataan switch ke ternary bersarang - case dan break statement benar-benar bertambah.
Comintern
2

C ( 480 465 byte)

#define P printf(
#define O(x) P"%d) Pour from %dL jug into "x"\n"
#define S P"5L: %d, 3L: %d, T: %d\n",F,H,g);}
F,H,s,g,x;l(j){P"%d) Fill %dL jug\n",++s,j);St(j,o,m){O("%dL jug"),++s,j,(j^5)?5:3);Se(j,i){O("tank"),++s,j);Smain(){scanf("%d",&x);while(x>4){x-=5;l(F=5);g+=5;e(5,F=0);}while(x>2){x-=3;l(H=3);g+=3;e(3,H=0);}(x^2)?(x^1)?0:(l(H=3),t(3,H=0,F=3),l(H=3),t(3,H=1,F=5),g++,e(3,H=0)):(l(F=5),t(5,F=2,H=3),g+=2,e(5,F=0));P"Volume measured out in %d turns",s);}

Versi optimal (menambahkan 10 byte)

#define P printf(
#define O(x) P"%d) Pour from %dL jug into "x"\n"
#define S P"5L: %d, 3L: %d, T: %d\n",F,H,g);}
F,H,s,g,x;l(j){P"%d) Fill %dL jug\n",++s,j);St(j,o,m){O("%dL jug"),++s,j,(j^5)?5:3);Se(j,i){O("tank"),++s,j);Smain(){scanf("%d",&x);while(x>4&&x^6&&x^9){x-=5;l(F=5);g+=5;e(5,F=0);}while(x>2){x-=3;l(H=3);g+=3;e(3,H=0);}(x^2)?(x^1)?0:(l(H=3),t(3,H=0,F=3),l(H=3),t(3,H=1,F=5),g++,e(3,H=0)):(l(F=5),t(5,F=2,H=3),g+=2,e(5,F=0));P"Volume measured out in %d turns",s);}

Sepertinya lebih banyak bermain golf di sini - fungsi output membunuh saya. Ini harus memberikan solusi optimal (jumlah langkah paling sedikit). Mirip dengan kode lain di sini, ia mengisi dan mengosongkan kendi 5L sampai mencapai di bawah 5 dan kemudian beralih ke kendi 3L. Ini menguji 2 kasus khusus (6 dan 9) dan jika menemukan mereka beralih ke kendi 3L. Petunjuk untuk mendapatkan 1L dan 2L dikodekan dengan keras.

Versi yang lebih mudah dibaca:

#define P printf(
#define O(x) P"%d) Pour from %dL jug into "x"\n"
#define S P"5L: %d, 3L: %d, T: %d\n",F,H,g);}
F,H,s,g,x;
l(j)
{
    P"%d) Fill %dL jug\n",++s,j);S

t(j,o,m)
{
    O("%dL jug"),++s,j,(j^5)?5:3);S

e(j,i)
{
    O("tank"),++s,j);S

main()
{
    scanf("%d",&x);
    //while(x>4&&x^6&&x^9)     <--optimal version
    while(x>4)
    {
        x-=5;l(F=5);g+=5;e(5,F=0);
    }
    while(x>2)
    {
        x-=3;l(H=3);g+=3;e(3,H=0);
    }
    (x^2)?
        (x^1)?  
            0
             :
            (l(H=3),t(3,H=0,F=3),l(H=3),t(3,H=1,F=5),g++,e(3,H=0))
             :(l(F=5),t(5,F=2,H=3),g+=2,e(5,F=0));
    P"Volume measured out in %d turns",s);
}

Suntingan:

  • Dihapus 10 byte yang memberikan kinerja optimal untuk versi skor berdasarkan klarifikasi OP.
  • Cukur 5 byte dengan mengonversi fungsi ke definisi.

Uji output untuk n = 11 (versi optimal):

11
1) Fill 5L jug
5L: 5, 3L: 0, T: 0
2) Pour from 5L jug into tank
5L: 0, 3L: 0, T: 5
3) Fill 3L jug
5L: 0, 3L: 3, T: 5
4) Pour from 3L jug into tank
5L: 0, 3L: 0, T: 8
5) Fill 3L jug
5L: 0, 3L: 3, T: 8
6) Pour from 3L jug into tank
5L: 0, 3L: 0, T: 11
Volume measured out in 6 turns
Komintern
sumber
Mengapa Anda tidak menghitung 11 sebagai kasus khusus? Apa yang Anda lakukan untuk 14? Satu lima, tiga bertiga (8) akan mengalahkan dua balita dan membuat empat liter lainnya (yang tidak dapat dilakukan dalam empat putaran).
Bill Woodger
11 dan 14 keduanya termasuk kasus khusus. Setelah Anda mengurangi 5L pertama, mereka masing-masing meninggalkan 6 dan 9 dan ini ditangani oleh kasing khusus. 9 adalah angka terbesar yang dapat dilakukan dalam langkah-langkah lebih sedikit menggunakan hanya kendi 3L. Input dari 14 memberikan solusi 8 langkah, output untuk 11 di atas.
Komintern
2

T-SQL (2012): 794 689 580

Terinspirasi oleh jawaban T-SQL @ Jonathan-Van-Matre yang dikombinasikan dengan algoritma @ Lego-Stormtroopr . Saya ingin melakukan ini karena saya sangat menikmati tantangan 99 Botol Bir .

Saya mencoba untuk menjaga OVERfungsi window ( ) minimal dalam preferensi fungsi matematika / bool.

SQLFiddle ada di sini .

WITH n AS(SELECT 11 n UNION ALL SELECT n-IIF(n>4,5,3)FROM n WHERE n>2)SELECT n, a,LEN(a)L,i=IDENTITY(INT,1,1),'L jug'j INTO #t FROM n JOIN(VALUES(3303),(33900),(5550),(55900),(2550),(259323),(25903),(1303),(139530),(1333),(139551),(13950))x(a)ON RIGHT(LEFT(12335,n),1)=LEFT(a,1)ORDER BY n DESC SELECT LTRIM(i)+') '+REPLACE(IIF(L=4,'Fill ','Pour ')+RIGHT(a/100,L-3),9,j+' into ')+IIF(L=5,'tank',j)  +'
5L: '+LTRIM((A%100)/10)+', 3L: '+LTRIM(A%10)+', T: '+LTRIM(SUM(IIF(L=5,LEFT(a,1),0))OVER(ORDER BY i))FROM #t UNION SELECT 'Volume measured out in ' +LTRIM(MAX(i))+' turns'FROM #t

Memasukkan: 11

1) Fill 5L jug
5L: 5, 3L: 0, T: 0
2) Pour from 5L jug into tank
5L: 0, 3L: 0, T: 5
3) Fill 5L jug
5L: 5, 3L: 0, T: 5
4) Pour from 5L jug into tank
5L: 0, 3L: 0, T: 10
5) Fill 3L jug
5L: 0, 3L: 3, T: 10
6) Pour from 3L jug into
5L jug 5L: 0, 3L: 3, T: 10
7) Fill 3L jug
5L: 3, 3L: 3, T: 10
8) Pour from 3L jug into 5L jug
5L: 5, 3L: 1, T: 10
9) Pour from 3L jug into tank
5L: 5, 3L: 0, T: 11
Volume measured out in 9 turns

Dapat dibaca oleh manusia:

WITH n AS(
  SELECT 11 n
    UNION ALL
  SELECT n-IIF(n>4,5,3)
  FROM n
  WHERE n>2
)
SELECT n, a,LEN(a) L, i = IDENTITY(INT,1,1), 'L jug'j
INTO #t
FROM n
JOIN(VALUES
     (3303),(33900),
     (5550),(55900),
     (2550),(259323),(25903),
     (1303),(139530),(1333),(139551),(13950)
    )x(a)
ON RIGHT(LEFT(12335,n),1) = LEFT(a,1)
ORDER BY n DESC

 SELECT LTRIM(i)+') '
  + REPLACE(IIF(L=4,'Fill ','Pour ')
  + RIGHT(a/100,L-3),9,j+' into ')+IIF(L=5,'tank',j)
  +'
5L: ' + LTRIM((A%100)/10) + ', 3L: ' + LTRIM(A%10) + ', T: '
  + LTRIM(SUM(IIF(L=5,LEFT(a,1),0))OVER(ORDER BY i)) FROM #t
UNION ALL
 SELECT 'Volume measured out in ' +LTRIM(MAX(i))+' turns'FROM #t
 DROP TABLE #t
nyaman
sumber
Apakah Anda memiliki output sampel?
Bill Woodger
@BillWoodger menambahkan output untukinput = 8
comfortablydrei
Terima kasih. 8 sangat mudah. Satu ke 11 memberikan kode yang baik :-) Saya upvoting, jadi jangan kembali dan katakan itu tidak berhasil.
Bill Woodger
@ Bill Terima kasih. Diubah menjadiinput = 11
comfortablydrei
@comfortablydrei Hal-hal luar biasa menggunakan T-SQL ... Mengambil halaman dari buku Jonathon ...
WallyWest
1

Python 3 (417 karakter)

P=print
D=divmod
N=['3L jug','5L jug','tank',0]
M=999
R=[0,0,0,M]
F=[3,5,M,M]
def o(a,b):k=a==3;P(['Pour from %s into %s','Empty %s','Fill %s'][k*2+(b==3)]%[(N[a],N[b]),(N[b])][k]);d=min(R[a],F[b]-R[b]);R[a]-=d;R[b]+=d;P('5L:',R[1],'3L:',R[0],'T:',R[2]);N[3]+=1
k,r=D(int(input()),5)
for i in'0'*k:o(3,1);o(1,2)
for x in['','c1c12','d46','c2','d434d46'][r]:o(*D(int(x,16),4))
P('Volume measured out in',N[3],'turns')

Dijelaskan

Perhatikan bahwa kita memiliki 4 objek, yaitu, kendi 3L, kendi 5L, tangki, dan foutain. Satu-satunya operasi yang dapat kita lakukan adalah memindahkan air dari satu objek ake objek lainnya b. Inilah fungsinyao(a, b) dilakukan dalam kode saya, memindahkan air dan mencetaknya dan terus menghitung.

Trik

  • N=['3L jug','5L jug','tank',0]. Di sini saya perlu elemen terakhir untuk menghindari IndexError. Selain itu, dapat digunakan sebagai variabel penghitungan global, tanpa globalkata kunci ekspansif . Sebagai contoh,N[3] += 1

  • Karena 0 <= a < 4, 0 <= b < 4dalam fungsi o(a, b), kita dapat menyandikan(a, b) ke dalam hex digit menggunakan (a << 2) | b, dan mendekode menggunakan divmod(x, 4). Dengan trik ini, semua 5 solusi ( reminder=0, 1, 2, 3, 4), dapat dikodekan ke dalam array ['','c1c12','d46','c2','d434d46'], yang sedikit lebih pendek dari bentuk aslinya:

    A=[ (), ((3,0),(0,1),(3,0),(0,1),(0,2)), ((3,1),(1,0),(1,2)), ((3,0),(0,2)), ((3,1),(1,0),(0,3),(1,0),(3,1),(1,0),(1,2)) ]

Output Sampel (n = 17)

17
Fill 5L jug
5L: 5 3L: 0 T: 0
Pour from 5L jug into tank
5L: 0 3L: 0 T: 5
Fill 5L jug
5L: 5 3L: 0 T: 5
Pour from 5L jug into tank
5L: 0 3L: 0 T: 10
Fill 5L jug
5L: 5 3L: 0 T: 10
Pour from 5L jug into tank
5L: 0 3L: 0 T: 15
Fill 5L jug
5L: 5 3L: 0 T: 15
Pour from 5L jug into 3L jug
5L: 2 3L: 3 T: 15
Pour from 5L jug into tank
5L: 0 3L: 3 T: 17
Volume measured out in 9 turns
sinar
sumber
1

COBOL (IBM Enterprise COBOL) 192 baris dengan 72 karakter

Ini adalah Bukti Konsep untuk Pertanyaan, dan awal dari satu untuk Golf-COBOL :-)

Pertanyaannya menanyakan yang tercepat. Jadi, terapkan paralelisme. Bahkan satu orang dapat dengan mudah mengisi satu kendi 3L dan satu kendi 5L secara bersamaan.

Cukup bagi input dengan delapan, juga sisakan sisanya. Lakukan pengisian cepat 5L / 3L dengan jumlah delapan kali pas, kemudian tangani yang tersisa satu hingga tujuh liter.

Sisanya yang paling menarik adalah empat liter. Melakukannya sebagai satu liter ditambah tiga liter mendorong lebih sedikit air di sekitar, hanya 18 liter vs 23 untuk kemungkinan lain.

Kode (bekerja)

   ID DIVISION
   PROGRAM-ID
   DATA DIVISION
   WORKING-STORAGE SECTION
   1.
   88 g1 VALUE ' '.
   2  PIC X
   88 H VALUE 'F'.
   88 I VALUE 'E'.
   88 J VALUE 'T'.
   2 PIC X
   88 K VALUE 'F'.
   88 L VALUE 'E'.
   88 M VALUE 'T'.
   1 R
   2 A1 PIC 999
   2 B PIC 99
   2 C PIC 9
   1 E
   2 e2 PIC X(120) VALUE "  ) Fill both jugs"
   2 e3 PIC X(120)
   88 O VALUE "5L: 0, 3L: 0, T: 000".
   2 e4 PIC X(120) VALUE "  ) Empty both jugs"
   2 e5 PIC X(120)
   2 e1 occurs 32 depending on p pic x(240)
   2 e6 pic x(99)
   1 F PIC 999 VALUE 0
   1 P PIC 99 VALUE 0
   1 P1 PIC 99
   PROCEDURE DIVISION
   ACCEPT A1
   DIVIDE A1 BY 8 GIVING B REMAINDER C
   set o to true
   move e3 to e5
   move 5 to e3(5:1)
   move 3 to e3(12:1)
   PERFORM D1 B TIMES
   EVALUATE C
   WHEN 1
   MOVE ZERO TO R
   SET K TO TRUE
   PERFORM N
   SET M TO TRUE
   PERFORM N
   SET K TO TRUE
   PERFORM N
   SET M TO TRUE
   PERFORM N
   SET L TO TRUE
   PERFORM N
   WHEN 2
   MOVE ZERO TO R
   SET H TO TRUE
   PERFORM N
   SET J TO TRUE
   PERFORM N
   SET I TO TRUE
   PERFORM N
   WHEN 3
   MOVE ZERO TO R
   SET K TO TRUE
   PERFORM N
   SET L TO TRUE
   PERFORM N
   WHEN 4
   MOVE ZERO TO R
   SET K TO TRUE
   PERFORM N
   SET M TO TRUE
   PERFORM N
   SET K TO TRUE
   PERFORM N
   SET M TO TRUE
   PERFORM N
   SET L TO TRUE
   PERFORM N
   SET K TO TRUE
   PERFORM N
   SET L TO TRUE
   PERFORM N
   WHEN 5
   MOVE ZERO TO R
   SET H TO TRUE
   PERFORM N
   SET I TO TRUE
   PERFORM N
   WHEN 6
   MOVE ZERO TO R
   SET K TO TRUE
   PERFORM N
   SET L TO TRUE
   PERFORM N
   SET K TO TRUE
   PERFORM N
   SET L TO TRUE
   PERFORM N
   WHEN 7
   MOVE ZERO TO R
   SET H TO TRUE
   PERFORM N
   SET I TO TRUE
   PERFORM N
   SET H TO TRUE
   PERFORM N
   SET J TO TRUE
   PERFORM N
   SET I TO TRUE
   PERFORM N
   END-EVALUATE
   string "Volume measured out in " delimited size P " turns"
   delimited size into e6
   if  e6(24:1) = 0
   move e6(25:) to e6 (24:)
   end-if
   move p to p1
   perform d2 p times
   DISPLAY E(481:)
   GOBACK
   D1
   ADD 1 TO P
   MOVE P TO E(1:2)
   move e2 to e1(p)
   move e3 to e1(p)(121:)
   ADD 1 TO P
   MOVE P TO E(241:2)
   ADD 8 TO F
   MOVE F TO E(378:3)
   move e4 to e1(p)
   move e5 to e1(p)(121:)
   MOVE F TO E(138:3)
   N
   ADD 1 TO P
   SET O TO TRUE
   EVALUATE TRUE
   WHEN K

   MOVE 3 TO B
   string p delimited size ") Fill 3L jug" delimited by size
   into e1(p)
   WHEN M
   COMPUTE C = C + B
   IF  C > 5
   COMPUTE B = C - 5
   MOVE 5 TO C
   ELSE
   MOVE 0 TO B
   END-IF
   string  P delimited size ") Pour from 3L jug into 5L jug"
   delimited size into e1(p)
   WHEN L
   ADD B TO F
   MOVE 0 TO B
   string  P delimited size ") Empty 3L jug into tank"
   delimited size into e1(p)
   END-EVALUATE
   EVALUATE TRUE
   WHEN H
   MOVE 5 TO C
   string  P delimited size ") Fill 5L jug"
   delimited size into e1(p)
   WHEN J
   COMPUTE B = C + B
   IF  B > 3
   COMPUTE C = B - 3
   MOVE 3 TO B
   ELSE
   MOVE 0 TO C
   END-IF
   string  P delimited size ") Pour from 5L jug into 3L jug"
   delimited size into e1(p)
   WHEN I
   ADD C TO F
   MOVE 0 TO C
   string  P delimited size ") Empty 5L jug into tank"
   delimited size into e1(p)
   END-EVALUATE
   string  "5L: " delimited size
       C delimited size ", 3L: " delimited size B(2:)
   ", T: " delimited size F delimited size
   into e1(p)(121:)
   SET g1 TO TRUE
   d2
   perform d3 2 times
   if  e1(p1)(1:1) = 0
   move e1(p1)(2:) to e1(p1)(1:120)
   end-if
   subtract 1 from p1
   d3
   if  e1(p1)(138:1) = 0
   move e1(p1)(139:) to e1(p1)(138:)
   end-if

Ini mendapatkan banyak sekali pesan diagnostik untuk kode yang dimulai di tempat yang salah dan kekurangan perhentian penuh yang diperlukan.

Tidak satu pun dari diagnostik menunjukkan dampak pada kode objek. Jadi, meskipun sudah rusak RC = 8 saya tahu objeknya akan baik-baik saja, jadi tautkan dan jalankan.

Berikut adalah output untuk satu hingga delapan liter. Setelah itu, semua hasil dapat intuisi. 17 dan 100 dimasukkan sebagai contoh paralelisme.

Masih banyak yang bisa dilakukan untuk memeras program dalam karakter, output yang benar adalah yang terpenting terlebih dahulu. Menghitung karakter ketika mereka berada di garis panjang tetap adalah hal yang sama sekali berbeda.

Output sampel:

1) Fill 3L jug                 
5L: 0, 3L: 3, T: 0             
2) Pour from 3L jug into 5L jug
5L: 3, 3L: 0, T: 0             
3) Fill 3L jug                 
5L: 3, 3L: 3, T: 0             
4) Pour from 3L jug into 5L jug
5L: 5, 3L: 1, T: 0             
5) Empty 3L jug into tank      
5L: 5, 3L: 0, T: 1             
Volume measured out in 5 turns 

1) Fill 5L jug                 
5L: 5, 3L: 0, T: 0             
2) Pour from 5L jug into 3L jug
5L: 2, 3L: 3, T: 0             
3) Empty 5L jug into tank      
5L: 0, 3L: 3, T: 2             
Volume measured out in 3 turns

1) Fill 3L jug                 
5L: 0, 3L: 3, T: 0             
2) Empty 3L jug into tank      
5L: 0, 3L: 0, T: 3             
Volume measured out in 2 turns 

1) Fill 3L jug                 
5L: 0, 3L: 3, T: 0             
2) Pour from 3L jug into 5L jug
5L: 3, 3L: 0, T: 0             
3) Fill 3L jug                 
5L: 3, 3L: 3, T: 0             
4) Pour from 3L jug into 5L jug
5L: 5, 3L: 1, T: 0             
5) Empty 3L jug into tank      
5L: 5, 3L: 0, T: 1             
6) Fill 3L jug                 
5L: 5, 3L: 3, T: 1             
7) Empty 3L jug into tank      
5L: 5, 3L: 0, T: 4             
Volume measured out in 7 turns 

1) Fill 5L jug                
5L: 5, 3L: 0, T: 0            
2) Empty 5L jug into tank     
5L: 0, 3L: 0, T: 5            
Volume measured out in 2 turns

1) Fill 3L jug                 
5L: 0, 3L: 3, T: 0             
2) Empty 3L jug into tank      
5L: 0, 3L: 0, T: 3             
3) Fill 3L jug                 
5L: 0, 3L: 3, T: 3             
4) Empty 3L jug into tank      
5L: 0, 3L: 0, T: 6             
Volume measured out in 4 turns 

1) Fill 5L jug                  
5L: 5, 3L: 0, T: 0              
2) Empty 5L jug into tank       
5L: 0, 3L: 0, T: 5              
3) Fill 5L jug                  
5L: 5, 3L: 0, T: 5              
4) Pour from 5L jug into 3L jug 
5L: 2, 3L: 3, T: 5              
5) Empty 5L jug into tank       
5L: 0, 3L: 3, T: 7              
Volume measured out in 5 turns 



1) Fill both jugs               
5L: 5, 3L: 3, T: 0              
2) Empty both jugs              
5L: 0, 3L: 0, T: 8              
Volume measured out in 2 turns  

1) Fill both jugs               
5L: 5, 3L: 3, T: 0              
2) Empty both jugs              
5L: 0, 3L: 0, T: 8              
3) Fill both jugs               
5L: 5, 3L: 3, T: 8              
4) Empty both jugs              
5L: 0, 3L: 0, T: 16             
5) Fill 3L jug                  
5L: 0, 3L: 3, T: 16             
6) Pour from 3L jug into 5L jug 
5L: 3, 3L: 0, T: 16             
7) Fill 3L jug                  
5L: 3, 3L: 3, T: 16             
8) Pour from 3L jug into 5L jug 
5L: 5, 3L: 1, T: 16             
9) Empty 3L jug into tank       
5L: 5, 3L: 0, T: 17             
Volume measured out in 9 turns  



1) Fill both jugs  
5L: 5, 3L: 3, T: 0 
2) Empty both jugs 
5L: 0, 3L: 0, T: 8 
3) Fill both jugs  
5L: 5, 3L: 3, T: 8 
4) Empty both jugs 
5L: 0, 3L: 0, T: 16
5) Fill both jugs  
5L: 5, 3L: 3, T: 16
6) Empty both jugs 
5L: 0, 3L: 0, T: 24
7) Fill both jugs  
5L: 5, 3L: 3, T: 24
8) Empty both jugs 
5L: 0, 3L: 0, T: 32
9) Fill both jugs  
5L: 5, 3L: 3, T: 32
10) Empty both jugs
5L: 0, 3L: 0, T: 40
11) Fill both jugs 
5L: 5, 3L: 3, T: 40
12) Empty both jugs
5L: 0, 3L: 0, T: 48
13) Fill both jugs 
5L: 5, 3L: 3, T: 48
14) Empty both jugs
5L: 0, 3L: 0, T: 56
15) Fill both jugs 
5L: 5, 3L: 3, T: 56
16) Empty both jugs
5L: 0, 3L: 0, T: 64
17) Fill both jugs 
5L: 5, 3L: 3, T: 64
18) Empty both jugs
5L: 0, 3L: 0, T: 72
19) Fill both jugs               
5L: 5, 3L: 3, T: 72              
20) Empty both jugs              
5L: 0, 3L: 0, T: 80              
21) Fill both jugs               
5L: 5, 3L: 3, T: 80              
22) Empty both jugs              
5L: 0, 3L: 0, T: 88              
23) Fill both jugs               
5L: 5, 3L: 3, T: 88              
24) Empty both jugs              
5L: 0, 3L: 0, T: 96              
25) Fill 3L jug                  
5L: 0, 3L: 3, T: 96              
26) Pour from 3L jug into 5L jug 
5L: 3, 3L: 0, T: 96              
27) Fill 3L jug                  
5L: 3, 3L: 3, T: 96              
28) Pour from 3L jug into 5L jug 
5L: 5, 3L: 1, T: 96              
29) Empty 3L jug into tank       
5L: 5, 3L: 0, T: 97              
30) Fill 3L jug                  
5L: 5, 3L: 3, T: 97              
31) Empty 3L jug into tank       
5L: 5, 3L: 0, T: 100             
Volume measured out in 31 turns 
Bill Woodger
sumber
Pendekatan yang mengagumkan, @BillWoodger; Namun saya tidak menetapkan perintah "isi kedua kendi" dalam instruksi yang tersedia ... pekerjaan yang tidak pasti, dan alat peraga untuk a) menggunakan COBOL, b) menggunakan rute metode tercepat .
WallyWest
1
@WallyWest Terima kasih. Jika saya pikir spek bisnis dapat ditingkatkan, saya selalu melakukannya :-). Saya tidak perlu "kosong ke air mancur", jadi dua yang baru dan dua tidak digunakan - kegagalan ganda!
Bill Woodger