Здравствуйте!

Я интересуюсь функциональным программированием, очень нравится концепция. И вот меня заинтересовал вопрос, а можно ли на Лиспе написать самое обычное графическое приложение для Windows? Чтобы получился экзешник, желательно небольшой и быстрый. И чтобы не плясать с бубном, а просто сделать и все. Ну как в Delphi или PureBasic. Погуглив, я нашел только Racket и коммерческие Лиспы с невменяемыми ценниками. Еще нашел NewLisp - хоть там и придется плясать с бубном, но сравнительно немного и это может быть даже весело. Но он интерпретируемый, хотя для простой утилиты это неважно, на Python полно таких - и ничего, все довольны. Например, Task Coach и Red Notebook довольно популярны.

Только просьба не смеяться и не говорить что-то типа: вот и пиши на Delphi и PureBasic. Я решал задачи на Лисп и Хаскелл, они мне очень понравились, хотя я понимаю, что знаю их на уровне хеллоуворлдов. Языки типа C, Pascal, Basic не нравятся тем, что нет сборки мусора. Плюс необходимость расписывать кучу мелких действий. А C# требует дотнет. Про Джаву вообще речи нет. D сырой. Go задумывался не для десктопов, поэтому там все печально с соответствующими батарейками. Хотя сам по себе язык прекрасен, эдакий C с коллекциями и сборкой мусора. ;)

Кстати, тот же вопрос про Haskell. Я сходу нашел одно гуевое приложение - FreeArc. Судя по всему, оно не развивается и никому не нужно.

Ну или так:

(Simple GUI application in the lisp)
[0] http://www.peter-herth.de/ltk/ltkdoc.pdf
[1] http://www.peter-herth.de/ltk/ltkdoc/node51.html
[2] http://www.cardarmy.ru/proekt/lisp/art1.htm

 

;;      устанавливаем нужные  пакеты:

;;      sudo pkg install tk85-8.5.19

;;      New packages to be INSTALLED:

;;	tk85: 8.5.19

;;	tcl85: 8.5.19_1

;;BEFORE :: (ql:quickload :ltk)

 

(defpackage :hello-world

(:use :common-lisp :ltk)

(:export #:main))

(in-package :hello-world)

(defun main ()

  (setf *debug-tk* nil)

  (with-ltk ()

    (let* (

                  (root (make-instance 'frame :height 200 :width 300))

		  (l1 (make-instance 'label

			    :master root

			    :text "одно число"))

	          (ea (make-instance 'entry 

			    :text "0"

			    :master root

			    :width 58

			    ))

		  (l2 (make-instance 'label

			    :master root

			    :text "второе число"))

	          (eb (make-instance 'entry 

			    :text "0"

			    :master root

			    :width 58

			    ))

                  (l3 (make-instance 'label 

			    :master root

			    :text "Результат"))

                  (ec (make-instance 'entry 

			    :text "0"

			    :master root

			    :width 58

			    ))

		  (b1 (make-instance 'button

                             :master root

                             :width 54

                             :text "умножить"

                             :command (lambda () 

		  (setf (text ec) ( *  (parse-integer (text eb)) (parse-integer (text ea)))))))	    

                  (b (make-instance 'button :master root :text "EXIT BUTTON!"

					:command (lambda ()

                                        (do-msg "EXIT?")

                                        (setf *exit-mainloop* t))))

	  )

	 (wm-title *tk* "ПЕРВОЕ ОКОННОЕ ПРИЛОЖЕНИЕ") 

	 (pack root :side :top)

	 (pack  l1) 

	 (pack  ea) 

	 (pack  l2) 

	 (pack  eb) 

	 (pack  l3) 

	 (pack  ec) 

	 (pack  b1)

	 (pack b    :side :left)

     )))

 

 

;;(load "/usr/home/useralex/LISP_EXAMPLE/ex1.lsp")

;;(in-package :hello-world)

;;(main)

Еще так можно сделать: (ql:quickload '(:cl-gtk2-gtk :cl-portaudio)) и у Вас будет gtk!