C#：支持BigInteger的659个字符

using System.Linq;using C=System.Console;class Program{static void Main(){var v=C.ReadLine();C.Write(v);while(v!="1"){C.Write("->");if(v[v.Length-1]%2==0){v=v.Aggregate(new{s="",o=0},(r,c)=>new{s=r.s+(char)((c-48)/2+r.o+48),o=(c%2)*5}).s.TrimStart('0');}else{var q=v.Reverse().Aggregate(new{s="",o=0},(r, c)=>new{s=(char)((c-48)*3+r.o+(c*3+r.o>153?c*3+r.o>163?28:38:48))+r.s,o=c*3+r.o>153?c*3+r.o>163?2:1:0});var t=(q.o+q.s).TrimStart('0').Reverse();var x=t.First();q=t.Skip(1).Aggregate(new{s=x>56?(x-57).ToString():(x-47).ToString(),o=x>56?1:0},(r,c)=>new{s=(char)(c-48+r.o+(c+r.o>57?38:48))+r.s,o=c+r.o>57?1:0});v=(q.o+q.s).TrimStart('0');}C.Write(v);}}}

未压缩的代码

using System.Linq;
using C = System.Console;
class Program
{
    static void Main()
    {
        var v = C.ReadLine();
        C.Write(v);
        while (v != "1")
        {
            C.Write("->");
            if (v[v.Length - 1] % 2 == 0)
            {
                v = v
                    .Aggregate(
                        new { s = "", o = 0 }, 
                        (r, c) => new { s = r.s + (char)((c - 48) / 2 + r.o + 48), o = (c % 2) * 5 })
                    .s.TrimStart('0');
            }
            else
            {
                var q = v
                    .Reverse()
                    .Aggregate(
                        new { s = "", o = 0 }, 
                        (r, c) => new { s = (char)((c - 48) * 3 + r.o + (c * 3 + r.o > 153 ? c * 3 + r.o > 163 ? 28 : 38 : 48)) + r.s, o = c * 3 + r.o > 153 ? c * 3 + r.o > 163 ? 2 : 1 : 0 });
                var t = (q.o + q.s)
                    .TrimStart('0')
                    .Reverse();
                var x = t.First();
                q = t
                    .Skip(1)
                    .Aggregate(
                        new { s = x > 56 ? (x - 57).ToString() : (x - 47).ToString(), o = x > 56 ? 1 : 0 }, 
                        (r, c) => new { s = (char)(c - 48 + r.o + (c + r.o > 57 ? 38 : 48)) + r.s, o = c + r.o > 57 ? 1 : 0 });
                v = (q.o + q.s)
                    .TrimStart('0');
            }
            C.Write(v);
        }
    }
}

JavaScript - 68个字符

与其他JS（以及大多数其他语言）不同，它实际上遵循输出中的->。

for(s='',c=' -> ',i=readline();i>1;i=i%2?i*3+1:i/2)s+=i+c
print(s+1)

如果我们避免这种情况，这是一个53字符的替代方案，每行打印一个数字：

for(p=print,i=readline(),p(i);i>1;)p(i=i%2?i*3+1:i/2)

旨在与SpiderMonkey一起运行：

echo 21 | js thisfile.js

21 -> 64 -> 32 -> 16 -> 8 -> 4 -> 2 -> 1

Windows命令提示符 - 68个字符

@set/pd=
:l 
@set/ad=(d+d%%2*(d*5+2))/2&echo %d%&if %d% NEQ 1 goto:l

MATLAB 7.8.0 (R2009a): 58 characters

n=input('');while n>1,n=n/2+rem(n,2)*(n*5+2)/2;disp(n);end

测试用例：

>> n=input('');while n>1,n=n/2+rem(n,2)*(n*5+2)/2;disp(n);end
21
    64
    32
    16
     8
     4
     2
     1

Fortran: 71 chars

n=1
1 if(n==1)read*,n
n=merge(n/2,3*n+1,mod(n,2)==0)
print*,n
goto1
end

---

因为有人必须要做这件事情 :)
计数包括必需的换行符。 完全符合Fortran 95（及更高版本）的代码。 包含完整的I/O，并且可以执行多次！
编辑：使用goto少了一个字符（赢得了一些风格！）

PHP, 78 72 67个字符

实际上我是在两年前读了Pickover的一本书之后写了这个程序。我稍微整理了一下，这是我能做到最小化并仍然有用户输入和漂亮易读的输出：

<?$n=fgets(STDIN);while($n!=1){$n=(($n&1)==0)?($n/2):(($n*3)+1);echo"$n\n";}?>

我们需要假设短标签已启用，但我不确定该输入在所有控制台上都能正常工作。但在我的Windows机器上完美运行。

---

更新：通过稍微作弊，我们可以减少一些字符：

<?$n=fgets(STDIN);while($n!=1){$n=(($n&1)==0)?$n/2:$n*3+1;echo"$n\n";}?>

---

更新：

• 鉴于$n&1返回的是1或0，我们可以利用PHP的松散类型，再省略几个字符。
• 此外，结合下面克里斯蒂安的评论（稍作修改以防止无限循环），我们可以再去掉一个字符。
• 最后，由于PHP脚本不需要终止符?>，我们可以再省略两个字符：

最终结果：

<?$n=fgets(STDIN);while($n>1){$n=(!($n&1))?$n/2:$n*3+1;echo"$n\n";}

Javascript, 67 56 chars

for(a=[i=prompt()];i-1;a.push(i=i%2?i*3+1:i/2));alert(a)

Ruby，41个字符

n=gets.to_i
p n=[n/2,n*3+1][n%2]while n>1

由于LOLCODE解决方案似乎引起了一些兴趣，所以我想比较这种语言中两种解决方案（迭代和尾递归）的实现。

首先，有一个203个字符的迭代解决方案：

HAI 1.2
    I HAS A n
    GIMMEH n
    IM IN YR l
        VISIBLE n
        BOTH SAEM 1 BIGGR OF 1 n
        O RLY?
            YA RLY
                GTFO
        OIC
        MOD OF n 2
        WTF?
            OMG 0
                n R QUOSHUNT OF n 2
                GTFO
            OMG 1
                n R SUM OF 1 PRODUKT OF 3 n
        OIC
    IM OUTTA YR l
KTHXBYE

简单来说：

• 使用 GIMMEH 关键字从 STDIN 中读取输入。
• 循环语句在 IM IN YR <loopname> 和 IM OUTTA YR <loopname> 之间执行。
• VISIBLE 用于向 STDOUT 输出打印信息。
• O RLY?、YA RLY 和 OIC 语句处理条件 If/Then/Else 逻辑。
• WTF?、OMG <expression> 和 OIC 语句处理条件 Switch/Case 逻辑。
• 使用 <variable> R <value> 进行赋值操作。
• GTFO 用于从循环或条件 Switch/Case 中退出。

此外，还有一种尾递归解决方案，可将字符数减少 2 个，最终字符数为 201：

HAI 1.2
    HOW DUZ I c YR n
        VISIBLE n
        DIFFRINT 1 BIGGR OF 1 n
        O RLY?
            YA RLY
                MOD OF n 2
                WTF?
                    OMG 0
                        c QUOSHUNT OF n 2
                        GTFO
                    OMG 1
                        c SUM OF 1 PRODUKT OF 3 n
                OIC
        OIC
    IF U SAY SO
    I HAS A i
    GIMMEH i
    c i
KTHXBYE

这里的区别在于HOW DUZ I <funcname> YR <args>和IF U SAY SO语句中函数的定义。函数使用<funcname> <args>进行调用。

Python：

def collatz(n):
    if (n%2) == 0:
        return n/2
    else:
        return 3*n+1
def do_collatz(n):
    while n > 1:
        print n
        n = collatz(n)
    print n
do_collatz(int(input("Start number: ")))

不会受到堆栈溢出的影响，但在不收敛于1的序列上不会终止。