1. gskbyte payasa: gracia

    | dev i |
    (gracia<1)
    ifTrue:[ dev := '-_-'. ]
    ifFalse:
    [
    dev := String new: (gracia+1).
    dev at: 1 put: $x.
    i := 2.
    [i<(gracia+2)] whileTrue:
    [
    dev at: i put: $D.
    i := i+1.
    ].
    ].
    ^dev.

    ¿Gusta más en Smalltalk (aka "CascaPoco")?
    -1  votos: 2   link
    el 09-11-2007 22:59 UTC por gskbyte (web)

    menéame