Гольф кода: догадка Collatz

Используя расширение HQ9 + (которое я не писал пока), называемый HQ9 + C, где C печатает последовательность Коллатца для числа, взятого из стандартного ввода.

C

: P

Эрланг, 120 символов

-module (f).
-export ([f/1]).
f(1)->1;
f(N)->
    io:format("~p ",[N]),
    if N rem 2 =:= 0
        ->f(trunc(N/2));
        true->f(3*N+1)
end.

тест:

f:f(171).

171 514 257 772 386 193 580 290 145 436 218 109 328 164 82 41 124 62 31 94 47 
142 71 214 107 322 161 484 242 121 364 182 91 274 137 412 206 103 310 155 466 
233 700 350 175 526 263 790 395 1186 593 1780 890 445 1336 668 334 167 502 251 
754 377 1132 566 283 850 425 1276 638 319 958 479 1438 719 2158 1079 3238 1619 
4858 2429 7288 3644 1822 911 2734 1367 4102 2051 6154 3077 9232 4616 2308 1154 
577 1732 866 433 1300 650 325 976 488 244 122 61 184 92 46 23 70 35 106 53 160 
80 40 20 10 5 16 8 4 2 1

Grooovy - 59 символов

int n=args[0] as int
while(n>1){println n=n%2==0?n/2:n*3+1}

Пример

$ ./collatz.groovy 5
16
8
4
2
1

С более красивым выводом ( 66 символов )

int n=args[0] as int
while(n>1){print " -> ${n=n%2==0?n/2:n*3+1}"}

Пример

$ ./collatz.groovy 5
-> 16 -> 8 -> 4 -> 2 -> 1

Clojure - 70 символов

((fn[n](prn n)(if(> n 1)(recur(if(odd? n)(+(* 3 n)1)(/ n 2)))))(read))

Или, с правильными пробелами и отступом:

((fn [n]
  (prn n)
  (if (> n 1)
    (recur
      (if (odd? n)
        (+ (* 3 n) 1)
        (/ n 2)))))
  (read))

recur заставляет Clojure использовать рекурсию хвостового вызова, поэтому нет переполнение стека. Работает с сколь угодно большими числами. Включает ввод и вывод, хотя он выйдет из строя, если вы введете не число :).


Примечание: вскоре после публикации своего ответа я заметил другую реализацию Clojure с почти таким же алгоритмом. Однако, поскольку он не пытается быть кратким, я оставлю свой ответ здесь, чего бы он ни стоил.

Josl - 58 символов

В этой версии не будет переполнения стека из-за хвостовой рекурсии.

c dup println dup 1 > if dup odd? if 3 * 1+ else 2 / end c

Используйте:

main 21 c

Или другие примеры:

main 
  21 c
  63,728,127 c

J, 31 символ

-:`(>:@(3&*))`1:@.(1&=+2&|)^:a:

Использование:

-:`(>:@(3&*))`1:@.(1&=+2&|)^:a: 9
9 28 14 7 22 11 34 17 52 26 13 40 20 10 5 16 8 4 2 1

Smalltalk, 103 символа

[:n||l|l:=OrderedCollection with:1.[n>1]whileTrue:[l addLast:n.n:=n odd ifTrue:[3*n+1]ifFalse:[n/2]].l]

Вызовите, отправив ему сообщение #value: с желаемым параметром:

[:n||l|l:=OrderedCollection with:1.[n>1]whileTrue:[l addLast:n.n:=n odd ifTrue:[3*n+1]ifFalse:[n/2]].l] value: 123

Или, что более разумно:

[:n | | result |
        result := OrderedCollection with: 1.
        [n > 1] whileTrue: [
                result addLast: n.
                n := n odd ifTrue: [3*n + 1] ifFalse: [n / 2]].
        result] value: 123

(Правильный способ - это определить указанное выше как метод для Integer, поэтому вы бы сказали "123 collatz", а не как анонимное закрытие.)

Common Lisp, 76 74 символа

(defun c(n)(if (eql n 1)'(1)(cons n(if(oddp n)(c(1+(* 3 n)))(c(/ n 2))))))

или, если написать правильно,

(defun collatz (n)
  (if (eql n 1)
      '(1)
    (cons n (if (oddp n)
                (collatz (1+ (* 3 n)))
                (collatz (/ n 2))))))

Рубин 55 символов

n=gets.to_i
while(n>1) do n=((n%2)==1)?3*n+1:n/2;p n end