1
Hellow world

1
i++

1
2
3
4
5
6
7
8
9
(defrule readin
        ?f<-(initial-fact)
=>
        (retract ?f)
        (assert (number (read)))
)
 
(defrule writeout
        ?f<-(number ?n)(test (<> ?n 42))
 ...

1
2
3
4
5
6
7
8
9
(defrule readin
        ?f<-(initial-fact)
=>
        (retract ?f)
        (assert (number (read)))
)
 
(defrule writeout
        ?f<-(number ?n)(test (<> ?n 42))
 ...

1
2
3
(defun foo () (print "qwerty"))
 
(foo)

1
 

1
 

1
 

1
2
(defun ololo() (print 'ololo))
ololo

1
(defun ololo() (print 'ololo)

1
(defun ololo())

1
2
3
4
5
6
7
8
9
(defn bottles [n & [capitalize]]
  (str (if (> n 0) n (if capitalize "No more" "no more"))
    " bottle" (if (= 1 n) "" "s") " of beer" ))
 
(defn bot-wall [n & cap] (str (bottles n cap) " on the wall"))
 
(defn sing
  ;  Default is 99 times.
  ([]  (sing 99))
 ...

1
2
3
(defun get-phone-number(panic)
  (if panic #x1DF5BF20 'brak))
(print get-phone-number 1)

1
2
3
(defun get-phone-number(panic)
  (if panic #x1DF5BF20 'brak))
(print (get-phone-number 1))

1
2
3
4
(set-macro-character #\< #'(lambda(s c)(read-delimited-list #\> s)))
(set-syntax-from-char #\> #\))
<list 1 2 <list 3 4>>
<<lambda<a><* a a>>4>

1
(print (get-universal-time))

1
(get-universal-time)

1
2
3
4
5
6
7
8
9
(defun odd-count1 (numberList)
    (setq counter 0)
    (setq listLength (length numberList))
    (if(> listLength 0) ;;if length is > 0
        (let ()
            (print "ListLength > 0")
            ;;(print listLength)
          
            (dotimes (n 11)
 ...

1
2
3
4
5
6
7
8
9
(defun odd-count1 (numberList)
    (setq counter 0)
    (setq listLength (length numberList))
    (if(> listLength 0) ;;if length is > 0
        (let ()
            (print "ListLength > 0")
            ;;(print listLength)
          
            (dotimes (n 11)
 ...

1
(format "~D" 333)

1
(print 333)

1
(labels ((dot-product dot-product (a b) (apply #'+ (mapcar #'* a b)))) (print (dot-product '(10 20 30) '(3 4 5))))

1
(labels ((dot-product dot-product (a b) (apply #'+ (mapcar #'* a b)))) (dot-product '(10 20 30) '(3 4 5)))

1
2
3
(defun dot-product (a b)
  (apply #'+ (mapcar #'* a b)))
(dot-product '(10 20 30) '(3 4 5))

1
     I  39    7 u   W   E           @k|        N    )lnm $2MC 

1
2
3
4
5
6
7
8
9
SIGPACK_EWIDOD    ø–óÅ IóÞ39®î×ì7Ùuù‡ØW ôÖEñû£      §ƒ@k|À¾î»ö±ÍúNÙžÑä)lnmˆ$2MCôi'ëúrÇSvM!©Yô…GÀj1µâ¬¬5É
¸„ħ}ßnïÚæ“‘½–ä´CB»GH¥÷tf…VlÕÄe¢±Îü¨
CÚƒß~çZ´ôR­ðì4ÞX!ÏþëfÐ,W3F<Â} <u‰Ñ‚ªã!í/F¬S™–x&bóéC·3ÊØq;֏NvUm†É}_™[Ñ$˜(kHþ26Bæ!êCqž‡ ã1”~êd]YQ5òðÎo,Ri¨­Ky™¦öP'e¯âO¦v—ßÑ4e±zkØ}ïÊ“JGv‘](%ïŸ[ŒOx>£#8–¦ý‚Õ¤YÓl˜ˆÀ¶¨}>¡+€•‹
ŽÙšhďvÿ˜jåúQŒÇÉü6»‰ÍÛ÷Ö»šfÍ›¡<PXà:óÒ2ôU¨‹}É-j»yä©•h1„|³
YÓ`H]¥f!
OûÓ—©Ãˆ¯D2¡xªâ±ç¼ñÁºz‰K%P š–¡5G—Ûet@Âó¹Áޝ‡àq‰þAñ¼EÉ¢'@‚dÙ # ÔñÙŠ w‹M$Ɲã;˜Ÿê4fi.%Bºû~·0ó1k„©¥Å4TåËŒR’ëÆ·’Ñê­!uˆ‚Ê?~ž¸¡›–ìëÀï~(솦x×EDÑ4H        r7¥ˆ!ÝR‰pÑÁRé€ý»¢”†ƒ
¥çj¢íGXòŠž#¨Æïï_LAšsjœÛÈßÆÈÔ²,ŸÜ¹Û«ƒóE²ò‹´”\â      Š$´r°ãܧ#‰¬Á$³YZ*"ÖµDüç³Æ3t¾µ”]ò<UôЉHØ,§3J!ÿû\ébqul‘YQ'ÝmÒ{–†(gò°hPC$Mrˆóv¾à_êÕÀÎ飱ZÒŒñ±ü?Eùwè        õdZ5x1 
· Š‚^6=–ù ^Ý&ËøÎÙ9[¯‰ªGÔ¦$÷›­T°"ñá{ñCoÁ{QS•ÂóM”£N
qu{Àä;Éà       ÿj3¨©œé˜¶¦  Y'Yµƒ]`ˆ‰0EÕûÃ÷½‘Çn©þó±Ð)ÚُßP®R.
Nm‰NdO—àŽÝ7
j™'cN)ŒÉˆ¼¦9á[2Þ„ií3ß{(î]ůË/M*Wû۳愨Ÿ6p²ÑªNbÂœãê÷QÕ½F­Æˆµˆ€Ne+ö,/ÄÔ+ÔVgÃ\xh_’Œ7s0y‚   ÍWu\m£ ü.‘äP[¸àÈÆد˜ṕWÞU×%É©1Øåä» ˆ9óI–ê_º1Ãéþ«‡•K‚تIK改öš"òyžÒ5PËU“¿«]·áÔ¹iáÔ‹Q”WÙnœ=“3Ynà<Ó¹ýŽ³Š’×ÊÅD}퐂F­)6w`V˱LÌ´¨Ã

1
2
3
4
5
6
7
8
9
SIGPACK_EWIDOD    ø–óÅ IóÞ39®î×ì7Ùuù‡ØW ôÖEñû£      §ƒ@k|À¾î»ö±ÍúNÙžÑä)lnmˆ$2MCôi'ëúrÇSvM!©Yô…GÀj1µâ¬¬5É
¸„ħ}ßnïÚæ“‘½–ä´CB»GH¥÷tf…VlÕÄe¢±Îü¨
CÚƒß~çZ´ôR­ðì4ÞX!ÏþëfÐ,W3F<Â} <u‰Ñ‚ªã!í/F¬S™–x&bóéC·3ÊØq;֏NvUm†É}_™[Ñ$˜(kHþ26Bæ!êCqž‡ ã1”~êd]YQ5òðÎo,Ri¨­Ky™¦öP'e¯âO¦v—ßÑ4e±zkØ}ïÊ“JGv‘](%ïŸ[ŒOx>£#8–¦ý‚Õ¤YÓl˜ˆÀ¶¨}>¡+€•‹
ŽÙšhďvÿ˜jåúQŒÇÉü6»‰ÍÛ÷Ö»šfÍ›¡<PXà:óÒ2ôU¨‹}É-j»yä©•h1„|³
YÓ`H]¥f!
OûÓ—©Ãˆ¯D2¡xªâ±ç¼ñÁºz‰K%P š–¡5G—Ûet@Âó¹Áޝ‡àq‰þAñ¼EÉ¢'@‚dÙ # ÔñÙŠ w‹M$Ɲã;˜Ÿê4fi.%Bºû~·0ó1k„©¥Å4TåËŒR’ëÆ·’Ñê­!uˆ‚Ê?~ž¸¡›–ìëÀï~(솦x×EDÑ4H        r7¥ˆ!ÝR‰pÑÁRé€ý»¢”†ƒ
¥çj¢íGXòŠž#¨Æïï_LAšsjœÛÈßÆÈÔ²,ŸÜ¹Û«ƒóE²ò‹´”\â      Š$´r°ãܧ#‰¬Á$³YZ*"ÖµDüç³Æ3t¾µ”]ò<UôЉHØ,§3J!ÿû\ébqul‘YQ'ÝmÒ{–†(gò°hPC$Mrˆóv¾à_êÕÀÎ飱ZÒŒñ±ü?Eùwè        õdZ5x1 
· Š‚^6=–ù ^Ý&ËøÎÙ9[¯‰ªGÔ¦$÷›­T°"ñá{ñCoÁ{QS•ÂóM”£N
qu{Àä;Éà       ÿj3¨©œé˜¶¦  Y'Yµƒ]`ˆ‰0EÕûÃ÷½‘Çn©þó±Ð)ÚُßP®R.
Nm‰NdO—àŽÝ7
j™'cN)ŒÉˆ¼¦9á[2Þ„ií3ß{(î]ůË/M*Wû۳愨Ÿ6p²ÑªNbÂœãê÷QÕ½F­Æˆµˆ€Ne+ö,/ÄÔ+ÔVgÃ\xh_’Œ7s0y‚   ÍWu\m£ ü.‘äP[¸àÈÆد˜ṕWÞU×%É©1Øåä» ˆ9óI–ê_º1Ãéþ«‡•K‚تIK改öš"òyžÒ5PËU“¿«]·áÔ¹iáÔ‹Q”WÙnœ=“3Ynà<Ó¹ýŽ³Š’×ÊÅD}퐂F­)6w`V˱LÌ´¨Ã

1
 

1
2
3
4
5
6
7
8
9
(defrule readin
        ?f<-(initial-fact)
=>
        (retract ?f)
        (assert (number (read)))
)
 
(defrule writeout
        ?f<-(number ?n)(test (<> ?n 42))
 ...

1
(format t "got lisp ?~%")