SNOBOL @ Forum dei Troll

☺

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

Rispondi

Scritto da

Non Autenticato

il 2009-08-31 10:48:00.0 alle 2009-08-31 10:48:00.0

Re: SNOBOL

- Scritto da: avvelentani
>

>     &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
>

Stupenda l' indentazione, e poi dicono del perl..

Rispondi

☺

Scritto da

avvelentani

Cubicolario

il 2009-08-31 11:25:00.0 alle 2009-08-31 11:25:00.0

Trollate totali: 18184

Re: SNOBOL

- Scritto da:
>
> - Scritto da: avvelentani
> >

> >     &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
> >

>
> Stupenda l' indentazione, e poi dicono del perl..
>
>

quale indentazione? snobol e` un linguaggio non strutturato se copi il codice in un editor di testo e metti tabwidth = 8 lo vedi in tutto il suo splendore.

I think happiness is love
- Vladimir Putin

Rispondi

<softv>

Forum libero