Repository 32bit  Forum
Repository 64bit  Wiki

Collatz conjecture

Area di discussione libera.

Moderatore: Staff

Regole del forum
1) Rispettare le idee altrui.
2) Evitare le offese dirette.
3) Leggere attentamente le risposte ricevute
4) Scrivere i messaggi con il colore di default, evitare altri colori.
5) Scrivere in Italiano o in Inglese, se possibile grammaticalmente corretto, evitate stili di scrittura poco chiari, quindi nessuna abbreviazione tipo telegramma o scrittura stile SMS o CHAT.
6) Appena registrati è consigliato presentarsi nel forum dedicato.

La non osservanza delle regole porta a provvedimenti di vari tipo da parte dello staff, in particolare la non osservanza della regola 5 porta alla cancellazione del post e alla segnalazione dell'utente. In caso di recidività l'utente rischia il ban temporaneo.

Collatz conjecture

Messaggioda SexP » gio ago 02, 2012 11:06

Hi Guys:

Here is an interesting open math topic : http://arxiv.org/abs/math.NT/0608208

and a simple implementation (for a very simple, but still unresolved, conjecture) ...


Codice: Seleziona tutto
(funcall #'(lambda (y)
        (let ((x y) (vt ()))
          (print x) (setf vt (make-array 0 :fill-pointer t :adjustable t)) (vector-push-extend x vt)
          (loop while (>= x 4) collect x do
          (if (= (mod x 2) 0)
         (let ((xi (/ x 2)))
           (and
            ;;(print xi)
            (setf x  xi)
            (vector-push-extend xi vt)))
         (LET ((xi  (+ (* 3 x) 1)))
           (and
            ;;(print xi)
            (setf x xi)
            (vector-push-extend xi vt)))))
          (print vt)))
    2082012)


that produce the list :

    (2082012 1041006 520503 1561510 780755 2342266 1171133 3513400 1756700 878350
    439175 1317526 658763 1976290 988145 2964436 1482218 741109 2223328 1111664
    555832 277916 138958 69479 208438 104219 312658 156329 468988 234494 117247
    351742 175871 527614 263807 791422 395711 1187134 593567 1780702 890351
    2671054 1335527 4006582 2003291 6009874 3004937 9014812 4507406 2253703
    6761110 3380555 10141666 5070833 15212500 7606250 3803125 11409376 5704688
    2852344 1426172 713086 356543 1069630 534815 1604446 802223 2406670 1203335
    3610006 1805003 5415010 2707505 8122516 4061258 2030629 6091888 3045944
    1522972 761486 380743 1142230 571115 1713346 856673 2570020 1285010 642505
    1927516 963758 481879 1445638 722819 2168458 1084229 3252688 1626344 813172
    406586 203293 609880 304940 152470 76235 228706 114353 343060 171530 85765
    257296 128648 64324 32162 16081 48244 24122 12061 36184 18092 9046 4523 13570
    6785 20356 10178 5089 15268 7634 3817 11452 5726 2863 8590 4295 12886 6443
    19330 9665 28996 14498 7249 21748 10874 5437 16312 8156 4078 2039 6118 3059
    9178 4589 13768 6884 3442 1721 5164 2582 1291 3874 1937 5812 2906 1453 4360
    2180 1090 545 1636 818 409 1228 614 307 922 461 1384 692 346 173 520 260 130
    65 196 98 49 148 74 37 112 56 28 14 7 22 11 34 17 52 26 13 40 20 10 5 16 8 4
    2
    )
"Happy Lambda , Happy Slack"
Avatar utente
SexP
Linux 1.0
Linux 1.0
 
Messaggi: 7
Iscritto il: dom giu 24, 2012 16:29

Torna a Libera

Chi c’è in linea

Visitano il forum: Nessuno e 1 ospite

cron