Descrizione: Alias creato per puro divertimento :p sostanzialmente per rispondere ad un cyberenigma proposto su HackerJournal n.66 ^__^ "Cominciamo da un numero, se questo è pari lo dividiamo per 2.Se è dispari lo moltiplichiamo per 3 e aggiungiamo 1!In quanti passaggi si arriva ad 1?" Bisognerà digitare /serienumerica numero es.: /serienumerica 27 in questo modo verrà echato il risultato (111), cioè il numero di passaggi sufficienti alla risoluzione del quesito sopra
alias serienumerica { unset %num.serie if (2 \\ $1) { %serie = $calc($calc($1 * 3) + 1) inc %num.serie } else { %serie = $calc($1 / 2) inc %num.serie } while (%serie > 1) { if (2 // %serie) { %serie = $calc(%serie / 2) inc %num.serie } else { %serie = $calc($calc(%serie * 3) + 1) inc %num.serie } } echo -a Serie svolta in %num.serie passaggi!^__- }
