История изменений
Исправление den73, (текущая версия) :
Вот как пример лиспа с более адекватным синтаксисом:
(do
(int variable1 0) ;The default value of variable1
; is 0
(int variable2 0) ;The default value of variable2
; is 0
(int result 0) ;The default value of the
; result is 0
(getInt variable1 “Number 1 = ” –100 100);Request input for variable 1
; with the text Number 1 =
; values between – 100 and 100
; are allowed
(getInt variable2 “Number 2 = ” –100 100);Request input for variable2
(= result (+ variable1 variable2)) ;Add and store in result
(pause “Result = ” result) ;Display result and pause
) ; end of do
Это CAL, скриптовый язык из программы Cakewalk, и, вероятно, первый из лиспов, на котором я что-либо написал. Ведь нет же здесь этого идиотизма с 6 скобками, и к тому же переменные типизированные. Т.е. совершенно необязательно жрать кактус.
Он, конечно, не совсем лисп, т.к. нет консов, но синтаксис на S выражениях, тем не менее.
Источник: https://msmcleod.co.uk/cakewalk/Cakewalk%20Application%20Language%20Programming%20Guide.pdf
Исправление den73, :
Вот как пример лиспа с более адекватным синтаксисом:
(do
(int variable1 0) ;The default value of variable1
; is 0
(int variable2 0) ;The default value of variable2
; is 0
(int result 0) ;The default value of the
; result is 0
(getInt variable1 “Number 1 = ” –100 100);Request input for variable 1
; with the text Number 1 =
; values between – 100 and 100
; are allowed
(getInt variable2 “Number 2 = ” –100 100);Request input for variable2
(= result (+ variable1 variable2)) ;Add and store in result
(pause “Result = ” result) ;Display result and pause
) ; end of do
Это CAL, скриптовый язык из программы Cakewalk, и, вероятно, первый из лиспов, на котором я что-либо написал. Ведь нет же здесь этого идиотизма с 6 скобками, и к тому же переменные типизированные. Т.е. совершенно необязательно жрать кактус.
Он, конечно, не совсем лисп, т.к. нет консов, но синтаксис на S выражениях, тем не менее.
Исходная версия den73, :
Вот как пример лиспа с более адекватным синтаксисом:
(do
(int variable1 0) ;The default value of variable1
; is 0
(int variable2 0) ;The default value of variable2
; is 0
(int result 0) ;The default value of the
; result is 0
(getInt variable1 “Number 1 = ” –100 100);Request input for variable 1
; with the text Number 1 =
; values between – 100 and 100
; are allowed
(getInt variable2 “Number 2 = ” –100 100);Request input for variable2
(= result (+ variable1 variable2)) ;Add and store in result
(pause “Result = ” result) ;Display result and pause
) ; end of do
Это CAL, скриптовый язык из программы Cakewalk, и, вероятно, первый из лиспов, на котором я что-либо написал. Ведь нет же здесь этого идиотизма с 6 скобками, и к тому же переменные типизированные. Т.е. совершенно необязательно жрать кактус.