• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Njay

[TCL] Gerar nomes "alienígenas"

10 mensagens neste tópico

Em tempos usei isto para gerar uns nomes para... deixo à vossa imaginação :confused:

proc getSilaba {}  {
    set i 0
    foreach l {c b f g j l m n p r s t v x z}  {
        set conso($i)  $l
        incr i
    }
    set j 0
    foreach l {a e i o u an el oy}  {
        set vogal($j) $l
        incr j
    }

    set l1 $conso([expr {int(rand()*$i)}])
    set l2 $vogal([expr {int(rand()*$j)}])
    return $l1$l2
}

proc genNicks {num} {
    for {set i 0} {$i < $num} {incr i}  {
        if {[expr rand()] < 0.4}  {
            lappend lst [getSilaba][getSilaba][getSilaba]
        } else {
            lappend lst [getSilaba][getSilaba]
        }
    }
    return $lst
}

Exemplo de output do comando genNicks:

> genNicks 10

litan zanni xanxe feljan soyjoy fobu goyra menancu fanxo lejuzi

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas,

script porreiro :)

primeira vez que vejo alguem a programar em TCL por aqui ;)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Também eu ;)

Eu uso TCL para tudo menos quando há outras linguagens muito mais apropriadas para o domínio de aplicação.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Eu confesso que já tive de alterar uma programa em Tcl e não fiquei grande fã da linguagem. :P

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

São gostos :P

De qualquer forma toda a gente deve aprender uma linguagem de scripting (genérica, o que exclui coisas como PHP), e tornar-se proeficiente nela. É uma ferramenta brutal.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

São gostos :P

De qualquer forma toda a gente deve aprender uma linguagem de scripting (genérica, o que exclui coisas como PHP), e tornar-se proeficiente nela. É uma ferramenta brutal.

De acordo. Eu essa linguagem foi Python e já me foi útil para tantas coisas que já perdi a conta. :confused:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Tenho a certeza de que estás tão contente com Python como eu estou com TCL :P

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Eu tambem adoro TCL, aquilo para mim é como PHP é fantastico :)

Tenho a certeza de que estás tão contente com Python como eu estou com TCL :)

Aqui vao 2 contentes com TCL xD

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Eu nunca conheci bem LISP, mas daquilo que conheci comparo-lhe um pouco o TCL, ainda que com certas limitações (por outro lado, muito menos parêntesis :)). O TCL também tem uma estrutura suficientemente básica, "estúpida" e coerente para se poder alterar até a própria linguagem.

Uma boa fonte de recursos é o http://wiki.tcl.tk/. Podem ver-se lá umas pequenas maravilhas por exemplo usando o Tk.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora