Setiap bilangan bulat positif dapat diperoleh dengan memulai dengan 1 dan menerapkan urutan operasi, yang masing-masing dapat "dikalikan dengan 3" atau "dibagi dengan 2, membuang sisanya" .

Contoh (menulis f untuk * 3 dan g untuk / 2):

4 = 1 *3 *3 /2 = 1 ffg
6 = 1 ffggf = 1 fffgg
21 = 1 fffgfgfgggf

Tulis program dengan perilaku berikut:

Input : bilangan bulat positif, melalui stdin atau hard-coded. (Jika hard-coded, numeral input akan dikecualikan dari panjang program.)
Output : string f's dan g's sedemikian rupa <input> = 1 <string>(seperti dalam contoh). String seperti itu dalam urutan terbalik juga dapat diterima. NB: Output hanya berisi f's dan g's, atau kosong.

Pemenangnya adalah entri dengan byte terkecil dari program-plus-output ketika 41 adalah input.

GolfScript, skor 64 (43-2 + 23)

0{)1.$2base:s{{3*}{2/}if}/41=!}do;s{103^}%+

(41 hardcoded, oleh karena itu -2 karakter untuk skor). Outputnya adalah

fffgffggffggffgggffgggg

yaitu 23 karakter (tanpa baris baru). Dengan konstruksi kode menjamin bahwa ia selalu mengembalikan (salah satu) representasi terpendek.

Kita menjadi kotor, teman-teman!

JAWA 210 207 199 karakter

public class C{public static void main(String[] a){int i=41;String s="";while(i>1){if(i%3<1){s+="f";i/=3;}else if(i%3<2){s+="g";i+=i+1;}else{s+="g";i+=i+(Math.random()+0.5);}}System.out.println(s);}}

non-golf:

public class C {

    public static void main(String[] a) {

        int i = 41;
        String s = "";
        while (i > 1) {
            if (i % 3 == 0) {
                s += "f";
                i /= 3;
            } else {
                if (i % 3 == 1) {
                    s += "g";
                    i += i + 1;
                } else {
                    s += "g";
                    i += i + (Math.random() + 0.5);
                }
            }
        }
        System.out.println(s);
    }
}

output: tergantung pada kepercayaan para dewa lama, yang terpendek yang saya miliki adalah 30. Perhatikan bahwa output harus dibaca dari kanan.

234

1 ggfgfgfgfggfggfgffgfggggfgffgfggfgfggggfgffgfggfgfggfgfggfgfgggggfffgfggfgfggfgfgggffgggggfffgfggggfgffgfggfgfggfgfggfgfggfgfggfgfggfgfggggfgffgfggfgfggfgfggfgfggfgfggfgfggggggggggggfgfgfggggfgfgfggfffgfgfggffgfgfggfgfggggffgfgfffff

108

1 gggffgfgfggggggfggggfgffggggfgfgfgfgfgffgggfgggggfggfffggfgfffffgggffggfgfgggffggfgfgggffggggggfgfgffgfgfff

sunting 45

1 ggfgfgfgfgggfggfffgfggfgfgggggggffgffgfgfff

poin: 318 199 + 30 = 229

edit1 (2 * i + 1)% 3 == 0 -> (2 * i)% 3 == 1

Nota Bene jika Anda menggunakan Java 6 dan bukan Java 7 saat bermain golf, Anda dapat menggunakannya

public class NoMain {
    static {
        //some code
        System.exit(1);
    }
}

Struktur 39 karakter alih-alih struktur standar yang panjangnya 53 karakter.

Python, skor 124 (90-2 + ​​36)

x=41;m=f=g=0
while(3**f!=x)*(m!=x):
 f+=1;m=3**f;g=0
 while m>x:m/=2;g+=1
print'f'*f+'g'*g

90 karakter kode (baris baru masing-masing 1) - 2 untuk angka input hard-coded + 36 karakter output

Keluaran:

ffffffffffffffffgggggggggggggggggggg

Python, skor 121 (87 - 2 + 36)

t=bin(41)
l,n,f=len(t),1,0
while bin(n)[:l]!=t:f+=1;n*=3
print(len(bin(n))-l)*'g'+f*'f'

Perl, skor 89 (63 - 2 + 28)

$_=41;$_=${$g=$_%3||$_==21?g:f}?$_*2+$_%3%2:$_/3while$_>print$g

Dugaan: Jika pendekatan naif yang dijelaskan dalam solusi asli saya di bawah ini pernah mencapai siklus, siklus itu akan menjadi [21, 7, 15, 5, 10, 21, ...] . Karena tidak ada contoh tandingan untuk 1 ≤ n ≤ 10 ⁶ , ini sepertinya benar. Untuk membuktikan ini, cukuplah untuk menunjukkan bahwa ini adalah satu-satunya siklus yang bisa ada, yang mungkin saya lakukan atau tidak mungkin lakukan di kemudian hari.

Solusi di atas menghindari siklus segera, alih-alih menebak (salah), dan menghindarinya untuk kedua kalinya.

Output (28 byte):

ggfgfgfgfggfggfgfgfggfgfgfff

Perl, skor 100 (69 - 2 + 33)

$_=41;1while$_>print$s{$_=$$g?$_*2+$_%3%2:$_/3}=$g=$_%3||$s{$_/3}?g:f

Menggunakan pendekatan tebak-dan-periksa. String dibangun menggunakan operasi terbalik (mengubah nilai menjadi 1 , bukan sebaliknya), dan string menjadi dicerminkan sesuai, yang diizinkan oleh spesifikasi masalah.

Setiap kali non-kelipatan tiga ditemui, itu akan dikalikan dengan dua, menambahkan satu jika hasilnya kemudian kelipatan dari tiga. Ketika kelipatan tiga ditemui, itu akan dibagi tiga ... kecuali nilai ini sebelumnya telah ditemui, menunjukkan siklus, maka tebak-dan-periksa.

Output (33 byte):

ggfgfgfgfggfggfgffgfgggfggfgfgfff

J, skor 103 (82-2 + 23)

* Catatan: Saya menamai kata kerja saya fdan g, jangan dikelirukan dengan string keluaran fdan g.

Hard-kode:

f=:3 :'s=.1 for_a.y do.s=.((<.&-:)`(*&3)@.a)s end.'
'gf'{~#:(>:^:(41&~:@f@#:)^:_)1

Fungsi umum:

f=:3 :'s=.1 for_a.y do.s=.((<.&-:)`(*&3)@.a)s end.'
g=:3 :'''gf''{~#:(>:^:(y&~:@f@#:)^:_)1'

Tidak jauh dengan beroperasi pada blok angka biner, yang merupakan perubahan paling penting sejauh pemadatan g. Mengganti nama variabel dan menghapus beberapa spasi putih untuk itu, tapi semuanya masih sama secara fungsional. (Penggunaan: g 41)

J, skor 197 (174 + 23)

f =: 3 : 0
acc =. 1
for_a. y do. acc =. ((*&3)`(<.&-:)@.a) acc end.
)

g =: 3 : 0
f2 =: f"1 f.
l =. 0$0
i =. 1
while. 0=$(l=.(#~(y&=@:f2))#:i.2^i) do. i=.>:i end.
'fg'{~{.l
)

Keluaran: ffffffffggggggggfgffggg

fmengubah daftar booleans menjadi angka, menggunakan 0s as *3dan 1s as /2(dan floor). #:i.2^imenciptakan array peringkat 2 yang berisi semua array boolean peringkat 1 panjang i.