2.33        J

J è l’evoluzione di APL  ad opera di Ken Iverson e Roger Hui nel 1990  a partire da APL90.

Come APL, J tratta principalmente array di numeri (interi, floating e complessi) o di caratteri, l’equivalente delle stringhe, ma se ne differenzia per l’utilizzo di soli simboli ASCII per il nome delle funzioni, al posto dei caratteri “esoterici” di APL.

Oltre alle strutture con dimensioni, gli array, ci sono gli atomi, un numero o un carattere o un box; quest’ultimo è una struttura atomica che può contenere atomi o array.

J ha conservato di APL l’interpretazione delle istruzioni, da destra verso sinistra e senza precedenze fra gli operatori, la distinzione delle funzioni in monadiche (fnz op), e diadiche (op1 fnz op2) e l’utilizzo dello stesso simbolo per funzioni diverse, seppure generalmente correlate. J offre un numero di funzioni primitive molto più esteso rispetto ad APL, tramite l’utilzzo di . e : postfissi (inflection), in tal caso, per ogni simbolo, al posto di due funzioni, la monadica e la diadica, in teoria ne sono disponibili 6. Qui di seguito alcune funzioni.

minore fra

Fortunatamente è possibile definire le funzioni con nomi significativi e utilizzare nomi già predefiniti; nella Figura 23 sono riportate la definizione delle funzioni left, right e mid, in particolare left è la semplice ridefinizione (definizione tacita) del verbo take {., right e mid sono invece definite esplicitamente dal blocco nomefnz=: n :0 ... ) (dyad define sono la ridefinizione rispettivamente di 4 e :0).

Figura 23

La descrizione ufficiale del linguaggio adotta una terminologia linguistica, si è già accennato ai postfissi; gli elementi sintatticamente più significativi sono riportati nella Figura 24 , esistono ancora le congiunzioni che indicano funzioni miste di funzione e variabile.

Ovviamente un  istruzioni è detta frase (sentence), ed i suoi componenti sono detti parole (word).

Gli operatori i cui operandi sono funzioni, generano delle nuove funzioni dette avverbi, in quanto modificano il comportamento di un verbo, uno di questi è / (insert) che inserisce il verbo fra gli operandi: +/ lista fornisce la somma dei costituenti la lista:

   +/1+i.10 NB. i.10 genera la lista 0 1 ... 9

55 

L’operatore & è utilizzato per rendere monadica una funzione diadica fissandone un operando, nella terminologia J & è detta congiunzione:

   sconto=.0.90&*

   sconto 100 NB. invece di 0.9 * 100

90

Possono essere create delle nuove funzioni giustapponendo semplicemente il nome delle funzioni ed assegnandolo ad una variabile (train), ma con una grave incongruenza di valutazione fra una funzione definita e gli stessi simboli eseguiti nativamente:

   isq=:%%: NB. definizione di x diviso radice di x (radice di x)

   isq 64

8

   %%:64 NB. inverso di radice

0.125

Ciò è dovuto alla particolare interpretazione dei train: se f, g e h sono funzioni e var è l’operando, si ha:

fg var  equivale a var f (g var) NB. Hooks

fgh var  equivale a (f var) g (h var) NB. Fork

Per train con oltre 3 funzioni lo schema è ricorsivamente analogo ai due casi visti.

L’operatore @ (compose) realizza le funzioni di funzioni: isq=:%@%: è l’inverso (%) della radice quadrata (%:). L’operatore @. ha come operando  di sinistra un train di funzioni separate dall’operatore ` (tie) ed a destra un indice che sceglie la funzione da utilizzare, di fatto realizzando il comando case.

La flessibilità nella combinazione di funzioni e il fatto che le operazioni di confronto sono funzioni numeriche, permettono di evitare costrutti condizionali ed iterativi, ad esempio +/'o'=t  conta quante ‘o’ ci sono nella stringa t, tuttavia questi esistono, ma sono utilizzabili solo nelle funzioni:

NB. T, T0, ... sono condizioni; B, B1, ... sono blocchi di istruzioni

for.     T do. B end.

for_xyz. T do. B end.  NB. xyz è la variabile contatore del ciclo

if. T do. B [else. B1] end.

if.     T  do. B

elseif. T1 do. B1

elseif. T2 do. B2

end.

select. T

 case.  T0 do. B0

 fcase. T1 do. B1  NB. Bizzarro: esegue anche il case successivo

 ...

end.

try. B catch. B1 catchd. B2 catcht. B3 end. NB. Se fallisce B1 allora B2 o B3

while.  T do. B end.

whilst. T do. B end.

L’esempio di Figura 25 illustra l’utilizzo di J per applicazioni grafiche.

dadi_Va_button=: 3 : 0 NB. Gestione del bottone Va

dadi_run'' NB. partenza programma

Figura 25

L’operatore !: (foreign conjunction) è utilizzato per interagire con il sistema operativo, in particolare:

0!:n   controllo dell’esecuzione di scripts

1!:n   gestione dei files

6!:n   funzioni su data e ora

9!:n   variabili d’ambiente

11!:n  ambiente grafico statico ed interattivo

13!:n  debug

15!:n  gestione delle Dynamic Link Library

Anche qui una incongruenza, il blocco m!:n è un verbo monadico e non una funzione diadica.

J è predisposto alle applicazioni grafiche tramite una semplice gestione di proprietà, metodi ed eventi realizzata col verbo 11!:0 o il suo sinonimo wd, il cui operando è una stringa di comandi per l’interprete grafico (v.Figura 25 ).

Nell’esempio seguente un esempio di crittografia a doppia chiave .

Ed il risultato è: