1から開始して一連の演算を適用することにより、正の整数を取得できます。各演算は、「3で乗算」または「2で除算して残りを破棄」します。

例（* 3にfを、/ 2にgを書き込む）：

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

次の動作を持つプログラムを作成します。

入力：stdin経由またはハードコードされた任意の正の整数。（ハードコーディングされている場合、入力数値はプログラムの長さから除外されます。）
出力：（<input> = 1 <string>例のように）fとgの文字列。このような逆の順序の文字列も受け入れられます。注意：出力にはfとgのみが含まれているか、空です。

勝者は、41が入力である場合にプログラムと出力のバイトが最も少ないエントリです。

GolfScript、スコア64（43-2 + 23）

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

（41はハードコードされているため、スコアは-2文字です）。出力は

fffgffggffggffgggffgggg

23文字です（改行なし）。構築により、コードは常に最短の表現（の1つ）を返すことを保証します。

友達が汚くなってきた！

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

ゴルフ中にJava 7ではなくJava 6を使用する場合、Nota Beneを使用できます。

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

53文字の標準構造ではなく、39文字の構造。

Python、スコア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

Python、スコア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 ⁶の反例はないので、これは本当のようです。これを証明するために、これが存在できる唯一のサイクルであることを示すだけで十分です。これは後の時点で行う場合としない場合があります。

上記の解決策は、（間違って）推測するのではなく、サイクルをすぐに回避し、2回目のサイクルを回避します。

出力（28バイト）：

ggfgfgfgfggfggfgfgfggfgfgfff

Perl、スコア100（69-2 + 33）

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

推測と確認のアプローチを使用します。文字列は逆の操作（値を1に変換し、その逆を行う）を使用して構築され、文字列はそれに応じてミラーリングされます。これは問題の仕様で許可されています。

3の倍数でない場合は常に2倍され、結果が3の倍数になる場合は1が加算されます。3の倍数に遭遇すると、3で除算されます。この値が以前に出ていない限り、サイクルを示しているため、推測とチェックが行われます。

出力（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'

2進数のブロックの操作は廃止されました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

f0をas *3、1を/2（and floor）として使用して、ブール値のリストを数値に変換します。#:i.2^ilengthのすべてのランク1ブール配列を含むランク2配列を作成しますi。