Mostra notizie nelle discussioni
Avatar
☺
Scritto da
avvelentani
Cubicolario
il 2009-08-31 10:29:00.0 alle 2009-08-31 10:29:00.0
Trollate totali: 18184
SNOBOL 
    &TRIM    =    1
    WORDPAT    =    BREAK(&LCASE &UCASE) SPAN(&LCASE &UCASE "'-") . WORD
    COUNT    =    ARRAY('3:9',0)
READ    LINE    =    INPUT                :F(DONE)
NEXTW    LINE WORDPAT =                    :F(READ)
    COUNT<SIZE(WORD)> = COUNT<SIZE(WORD)>+ 1    :(NEXTW)
DONE    OUTPUT    =    "WORD LENGTH     NUMBER OF OCCURRENCES"
    I    =    2
PRINT    I    =    I + 1
    OUTPUT    =    LPAD(I,5) LPAD(COUNT<i>,20)    :S(PRINT)

END
I think happiness is love
- Vladimir Putin

Pagina generata in 43 millisecondi

Utenti attivi: 13 nell'ultimo minuto, 25 negli ultimi cinque minuti, 61 negli ultimi 15 minuti