Будь-яке додатне ціле число можна отримати, починаючи з 1 і застосовуючи послідовність операцій, кожну з яких або "помножити на 3", або "ділити на 2, відкинувши будь-який залишок" .

Приклади (написання f для * 3 і g для / 2):

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

Напишіть програму з такою поведінкою:

Введення : будь-яке додатне ціле число, через stdin або жорстко закодоване. (Якщо жорстко закодовано, вхідна цифра буде виключена з програмної довжини.)
Вихід : рядок f і g такий, що <input> = 1 <string>(як у прикладах). Така рядок у зворотному порядку також прийнятна. Примітка: Вихід містить лише f і g, або порожній.

Виграш - запис із найменшими байтами програми плюс-вихід, коли 41 - це вхід.

GolfScript, оцінка 64 (43-2 + 23)

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

(41 є жорстким кодом, тому -2 символи для оцінки). Вихід є

fffgffggffggffgggffgggg

що становить 23 символи (без нового рядка). Побудова коду гарантує, що він завжди повертає (одне) найкоротші уявлення.

Ми бруднимось, друзі!

JAVA 210 207 199 символів

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

не гольф:

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

вихід: залежно від віри старих богів, найкоротшим у мене було 30. Зверніть увагу, що вихід повинен читатися праворуч.

234

1 ggfgfgfgfggfggfgffgfggggfgffgfggfgfggggfgffgfggfgfggfgfggfgfgggggfffgfggfgfggfgfgggffgggggfffgfggggfgffgfggfgfggfgfggfgfggfgfggfgfggfgfggggfgffgfggfgfggfgfggfgfggfgfggfgfggggggggggggfgfgfggggfgfgfggfffgfgfggffgfgfggfgfggggffgfgfffff

108

1 gggffgfgfggggggfggggfgffggggfgfgfgfgfgffgggfgggggfggfffggfgfffffgggffggfgfgggffggfgfgggffggggggfgfgffgfgfff

редагувати 45

1 ggfgfgfgfgggfggfffgfggfgfgggggggffgffgfgfff

бали: 318 199 + 30 = 229

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

Nota Bene, якщо під час гольфу ви використовуєте Java 6, а не Java 7, ви можете використовувати

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

39 символів структурують замість стандартної структури довжиною 53 символи.

Пітон, оцінка 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 символів коду (нові рядки по 1 у кожному) - 2 для жорстко закодованої цифри введення + 36 символів виводу

Вихід:

ffffffffffffffffgggggggggggggggggggg

Пітон, оцінка 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, оцінка 89 (63 - 2 + 28)

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

Концепція: Якщо наївний підхід, описаний у моєму початковому рішенні нижче, коли-небудь досягне циклу, цей цикл буде [21, 7, 15, 5, 10, 21, ...] . Оскільки для 1 ≤ n ≤ 10 ⁶ немає зустрічних прикладів, це, мабуть, є правдою. Щоб довести це, достатньо було б показати, що це єдиний цикл, який може існувати, який я можу зробити або не зробити в більш пізній момент часу.

Вищевказане рішення уникає циклу негайно, замість того, щоб здогадуватися (неправильно) та уникати його вдруге.

Вихід (28 байт):

ggfgfgfgfggfggfgfgfggfgfgfff

Perl, оцінка 100 (69 - 2 + 33)

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

Використання підходу для відгадки та перевірки. Рядок будується за допомогою обернених операцій (перетворення значення в 1 , а не навпаки), і рядок стає відображеним відповідно, що дозволено специфікацією проблеми.

Щоразу, коли трапляється не кратне три, воно буде помножено на два, додавши одне, якщо результат був би кратним три. Якщо зустрічається кратне три, воно ділиться на три ... якщо раніше це значення не зустрічалося, що вказує на цикл, отже, відгадка та перевірка.

Вихід (33 байти):

ggfgfgfgfggfggfgffgfgggfggfgfgfff

J, оцінка 103 (82-2 + 23)

* Примітка: я назвав свої дієслова fі g, не плутати з вихідними рядками fта g.

Твердо кодовані:

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

Загальні функції:

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

Усунули роботу з блоками двійкових чисел, що було найважливішою зміною, що стосується ущільнення g. Перейменовував змінні та видаляв пробіл для біса, але функціонально все одно. (Використання: g 41)

J, оцінка 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
)

Вихід: ffffffffggggggggfgffggg

fперетворює список булів у число, використовуючи 0s як *3і 1s як /2(і floor). #:i.2^iстворює масив 2-го рангу, що містить усі булеві масиви рангів 1 i.