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 juger
Remplaçons := par =, begin par {, end par } et fun par function
l'histoire de l'informatique est un éternel recommencement.
A+JYT
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 juger
Code:
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;Code:
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
Aucun commentaire:
Enregistrer un commentaire