Bonjour.
En lisant mon journal ce matin, je tombe sur un article qui rappelle l'histoire du Newton. (pour les plus jeunes le Newton est considéré comme l'ancêtre de tous les PDAs. je n'en suis pas convaincu. il est sorti en 1993)
le newton arrivait avec un langage le newtonscript. je me suis alors souvenu de la chose. je n'ai à l'époque pas réellement pratiqué mais j'étais curieux.
et là tout d'un coup le langage me reviens à la mémoire et je le trouve proche dans sa syntaxe de Javascript. je vous laisse jugerRemplaçons := par =, begin par {, end par } et fun par function
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21 func myfunc() begin Stack := { class: 'stack', Content: [], Push: func (item) begin AddArraySlot(Content,item); /* Adds the item as the new last element to the array */ end, Pop: func () begin local item:=Content[Length(Content)-1]; ArrayRemoveCount(Content,Length(Content)-1,1); item; /* the last expression is always the function result, here item is returned */ end }; Stack:Push(1); Stack:Push(2); Print(Stack:Pop()); /* Print does debugging output */ Print(Stack:Pop()); end;l'histoire de l'informatique est un éternel recommencement.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21 function myfunc() { Stack = { class: 'stack', Content: [], Push: function (item) { AddArraySlot(Content,item); /* Adds the item as the new last element to the array */ }, Pop: function () { local item=Content[Length(Content)-1]; ArrayRemoveCount(Content,Length(Content)-1,1); item; /* the last expression is always the function result, here item is returned */ } }; Stack:Push(1); Stack:Push(2); Print(Stack:Pop()); /* Print does debugging output */ Print(Stack:Pop()); };
A+JYT
Partager