Collat​​z予想はすでによく知られていると思います。しかし、ルールを逆にするとどうなりますか？

整数n> = 1から始めます。

次の手順を繰り返します。

nが偶数の場合、3を掛けて1を加算します。

nが奇数の場合、1を減算し、2で除算します。

0に達したら停止

繰り返し数を印刷します。

テストケース：

 1        => 1, 0
 2        => 2, 7, 3, 1, 0
 3        => 3, 1, 0
10        => 10, 31, 15, 7, 3...
14        => 14, 43, 21, 10, ...

ルール：

• このシーケンスは、無限ループに入るため、多くの数値では機能しません。これらのケースを処理する必要はありません。上記のテストケースを印刷するだけで十分です。

• 1を減算し、2で除算して有効な整数を求めることをお勧めしますが、そのように計算する必要はありません。2で割って整数にキャストするか、期待される出力が得られる他のメソッドにキャストします。

• 最初の入力も印刷する必要があります。

• 出力をテストケースとしてフォーマットする必要はありません。これは単なる提案でした。ただし、繰り返しの順序を尊重する必要があります。

• 最小のコードが優先されます。

Perl 6、30バイト

{$_,{$_%2??$_+>1!!$_*3+1}...0}

オンラインでお試しください！

シーケンスを返す匿名コードブロック。

説明：

{$_,{$_%2??$_+>1!!$_*3+1}...0}
{                            }   # Anonymous code block
   ,                     ...     # Define a sequence
 $_                              # That starts with the given value
    {                   }        # With each element being
     $_%2??     !!               # Is the previous element odd?
           $_+>1                 # Return the previous element bitshifted right by 1
                  $_*3+1         # Else the previous element multiplied by 3 plus 1
                            0    # Until the element is 0

Haskell、40 39バイト

f 0=[]
f n=n:f(cycle[3*n+1,div n 2]!!n)

オンラインでお試しください！

今のない最後の0。

クリーン、53バ​​イト

import StdEnv
$0=[0]
$n=[n: $if(isOdd n)(n/2)(n*3+1)]

オンラインでお試しください！

ゼリー、9バイト

:++‘ƊḂ?Ƭ2

オンラインでお試しください！

パイソン2、54 52 44バイト

n=input()
while n:print n;n=(n*3+1,n/2)[n%2]

-Mr. Xcoderのおかげで2バイト

確かにもっと速い方法がなければなりません。奇妙なことに、ラムダを試してみると、同じバイト数でした。私はおそらく幻覚です。

オンラインでお試しください！

Haskell、76 69 61 56バイト

これは長すぎるように感じます。ここでlは、逆コラッツシーケンスの無限リストが作成され、最初の行の無名関数は正しい場所で切り捨てます。

-5バイト@ØrjanJohansenをありがとう！

fst.span(>0).l
l r=r:[last$3*k+1:[div k 2|odd k]|k<-l r]

オンラインでお試しください！

さび、65 64バイト

|mut n|{while n>0{print!("{} ",n);n=if n&1>0{n>>1}else{n*3+1};}}

オンラインでお試しください！

05AB1E、15 14 バイト

[Ð=_#Èi3*>ë<2÷

@MagicOctopusUrnのおかげで-1バイト。

オンラインでお試しください。

説明：

[             # Start an infinite loop
 Ð            #  Duplicate the top value on the stack three times
              #  (Which will be the (implicit) input in the first iteration)
  =           #  Output it with trailing newline (without popping the value)
   _#         #  If it's exactly 0: stop the infinite loop
     Èi       #  If it's even:
       3*     #   Multiply by 3
         >    #   And add 1
      ë       #  Else:
       <      #   Subtract 1
        2÷    #   And integer-divide by 2

JAEL、18バイト

![ؼw>î?èÛ|õÀ

オンラインでお試しください！

JavaScript（ES6）、31バイト

f=n=>n&&n+' '+f(n&1?n>>1:n*3+1)

オンラインでお試しください！

または逆順で30バイト。

Pyth、12バイト

.u?%N2/N2h*3

テストスイートとしてここで試してみてください！

Wolfram言語（Mathematica）、35バイト

0<Echo@#&&#0[3#+1-(5#+3)/2#~Mod~2]&

オンラインでお試しください！

0<Echo@# && ...&は短絡評価です。入力を出力し#、正かどうかをチェックし、正しければ評価し...ます。この場合、...です#0[3#+1-(5#+3)/2#~Mod~2]。以降#0関数そのものである（ゼロ番目のスロット）、これは上の再帰呼び出しである3#+1-(5#+3)/2#~Mod~2ように簡単に、3#+1場合#もあり、(#-1)/2場合#奇数です。

Common Lisp、79バイト

(defun x(n)(cons n(if(= n 0)nil(if(=(mod n 2)0)(x(+(* n 3)1))(x(/(- n 1)2))))))

オンラインでお試しください！

PowerShell、53 52バイト

param($i)for(;$i){$i;$i=(($i*3+1),($i-shr1))[$i%2]}0

オンラインでお試しください！

編集：
@mazzyのおかげで-1バイト

絵文字コード0.5、141バイト

🐖🎅🏿🍇🍮a🐕😀🔡a 10🔁▶️a 0🍇🍊😛🚮a 2 1🍇🍮a➗a 2🍉🍓🍇🍮a➕✖️a 3 1🍉😀🔡a 10🍉🍉

オンラインでお試しください！

🐖🎅🏿🍇
🍮a🐕      👴 input integer variable 'a'
😀🔡a 10      👴 print input int
🔁▶️a 0🍇      👴 loop while number isn’t 0
🍊😛🚮a 2 1🍇     👴 if number is odd
🍮a➗a 2       👴 divide number by 2
🍉
🍓🍇      👴 else
🍮a➕✖️a 3 1   👴 multiply by 3 and add 1
🍉
😀🔡a 10     👴 print iteration
🍉🍉

スタックス、11 バイト

₧↑╔¶┘tÇ╣;↑è

実行してデバッグする

MathGolf、12バイト

{o_¥¿½É3*)}∟

オンラインでお試しください！

説明

{             Start block of arbitrary length
 o            Output the number
  _           Duplicate
   ¥          Modulo 2
    ¿         If-else with the next two blocks. Implicit blocks consist of 1 operator
     ½        Halve the number to integer (effectively subtracting 1 before)
      É       Start block of 3 bytes
       3*)    Multiply by 3 and add 1
          }∟  End block and make it do-while-true

x86マシンコード、39バイト

00000000: 9150 6800 0000 00e8 fcff ffff 5958 a901  .Ph.........YX..
00000010: 0000 0074 04d1 e8eb 066a 035a f7e2 4009  ...t.....j.Z..@.
00000020: c075 dec3 2564 20                        .u..%d 

アセンブリ（NASM構文）：

section .text
	global func
	extern printf
func:					;the function uses fastcall conventions
	xchg eax, ecx			;load function arg into eax
	loop:
		push eax
		push fmt
		call printf	;print eax
		pop ecx
		pop eax
		test eax, 1	;if even zf=1
		jz even		;if eax is even jmp to even
		odd:		;eax=eax/2
			shr eax, 1
			jmp skip
		even:		;eax=eax*3+1
			push 3
			pop edx
			mul edx
			inc eax
		skip:
		or eax, eax
		jne loop	;if eax!=0, keep looping
	ret			;return eax
section .data
	fmt db '%d '

オンラインでお試しください！

R、66 61バイト

ifelseをifブラケットに統合して削除し、x！= 0からx> 0を削除したRobert S.に感謝します。

print(x<-scan());while(x>0)print(x<-`if`(x%%2,(x-1)/2,x*3+1))

の代わりに

print(x<-scan());while(x!=0){print(x<-ifelse(x%%2,(x-1)/2,x*3+1))}

オンラインでお試しください！

perl -Minteger -nlE、39バイト

{say;$_=$_%2?$_/2:3*$_+1 and redo}say 0

追加++、38 35 33バイト

D,f,@:,d3*1+$2/iA2%D
+?
O
Wx,$f>x

オンラインでお試しください！

使い方

まず、関数を定義することから始めます $f(x)$、単一の引数を取り、逆コラッツ演算を実行します $x$その後、結果を出力します。あれは、

関数モードの場合、Add ++はスタックメモリモデルを使用し、そうでない場合は変数が使用されます。計算するとき$f(x)$、スタックは最初は次のようになります $S = [x]$。

次に、この値（d）を複製して、$S = [x, x]$。次に、最初の可能なオプションを生成します。$3x + 1$（3*1+）、上位2つの値を交換してから計算する$\lfloor\frac{x}{2}\rfloor$、離れる $S = [3x+1, \lfloor\frac{x}{2}\rfloor]$。

次に、プッシュ $x$ に $S$、およびビットの計算 $x$ すなわち $x \: \% \: 2$、 どこ $a \: \% \: b$除算時の剰余を示します$a$ 沿って $b$。これにより、$S = [3x+1, \lfloor\frac{x}{2}\rfloor, (x \: \% \: 2)]$。最後に、次でD指定されたインデックスで要素を選択するために使用します$(x \: \% \: 2)$。もしそうなら$0$、最初の要素、つまり $3x+1$、そうでない場合は2番目の要素を返します。 $\lfloor\frac{x}{2}\rfloor$。

以上で定義は完了です $f(x)$、しかし、私たちはまだそれを実践していません。次の3行は、関数モードから変数を操作するバニラモードに切り替わりました。より正確には、このプログラムでは、文字で表される1つの変数、アクティブ変数のみを操作しますx。ただし、x明らかに他の引数であるコマンドからは省略できます。

たとえば、はと+?同一x+?であり、入力をxに割り当てますxが、アクティブ変数と同様に、省略できます。次に、を出力しx、whileループ全体を出力します。$x \neq 0$。ループは非常に単純で、単一のステートメントで構成されています$f>x。これはすべて実行されます$f(x)$、それをに割り当て、ループの各反復でx更新xします。

Retina 0.8.2、46バイト

.+
$*
{*M`1
^(..)+$
$&$&$&$&$&$&111
1(.*)\1
$1

オンラインでお試しください！説明：

.+
$*

単項に変換します。

{

値が変化しなくなるまで繰り返します。

*M`1

値を10進数で出力します。

^(..)+$
$&$&$&$&$&$&111

偶数の場合、6を掛けて3を加算します。

1(.*)\1
$1

1を引き、2で割ります。

末尾の改行は、の;前にを追加することで抑制できます{。

赤、70バイト

func[n][print n if n = 0[exit]either odd? n[f n - 1 / 2][f n * 3 + 1]]

オンラインでお試しください！

ラケット、75バイト

(define(f n)(cons n(if(= n 0)'()(if(odd? n)(f(/(- n 1)2))(f(+(* 3 n)1))))))

オンラインでお試しください！

JRowanのCommon Lispソリューションと同等。

C＃（.NET Core）、62バイト

a=>{for(;a>0;a=a%2<1?a*3+1:a/2)Console.Write(a+" ");return a;}

オンラインでお試しください！

ゴルフをしていない：

a => {
    for(; a > 0;                // until a equals 0
        a = a % 2 < 1 ?             // set a depending on if a is odd or even
                a * 3 + 1 :             // even
                a / 2                   // odd (minus one unnecessary because of int casting)
    )
        Console.Write(a + " "); // writes the current a to the console
    return a;                   // writes a to the console (always 0)
}

ダーツ、49バイト

f(n){for(;n>0;n=n%2>0?(n-1)>>1:(n*3)+1)print(n);}

オンラインでお試しください！

Gambit Scheme（gsi）、74バイト

(define(f n)(if(= 0 n)'()(cons n(f(if(even? n)(+ (* 3 n)1)(/(- n 1)2))))))

オンラインでお試しください！