newlispfanclub.alh.net

cameyo

Lisp Book (Croatian language) by Kazimir Majorinc at:
http://monoskop.org/images/c/cb/Majorin ... moguce.pdf

Traslation in english "As Powerful As Possible" at:
https://github.com/amno1/as-powerful-as-possible

cameyo

Solution of my problem:
viewtopic.php?f=16&t=4580

cameyo

https://gist.github.com/cameyo42/13fb05 ... 624507c14e
Can't post code on forum :-(

cameyo

deleted

cameyo

Ok. I am old...and often confused.
Thanks HPW and Ralph.

cameyo

This is normal:

Code: Select all

(string a b)
-> "1020"
(string "a""b")
-> "ab"

This is strange, but you just need to know:

Code: Select all

(string ""a""b"")
-> "1020"

cameyo

Why this?

Code: Select all

(setq a 10)
(setq b 20)
(string "'"a" '"b"")
-> "'10 '20"

cameyo

Yes.
I know it is wrong, but after:

Code: Select all

(setq 'a 3)
> 3

the symbol a is created, but is nil.
Where is the value 3? ;-)

cameyo

https://github.com/cameyo42/newLISP-Not ... 9.lsp#L456
(useful for testing purpose)

cameyo

Code: Select all

(setq 'a 3)
output: 3
a
output: nil

Which symbol is binded with 3?
How to retrieve it?

p.s. it's only a curiosity

cameyo

Faster solution:

Code: Select all

(setq a '(1 (2 (3 4)) (5 6)))
;Indexes
(ref-all nil a (fn (x) true))
((0) (1) (1 0) (1 1) (1 1 0) (1 1 1) (2) (2 0) (2 1))
;Elements
(ref-all nil a (fn (x) true) true)
(1 (2 (3 4)) 2 (3 4) 3 4 (5 6) 5 6)

cameyo

Solution:
"THIS IS MY NEWLISP SCRIPT THAT EMULATES THE ENIGMA MACHINE FROM WWII."
Code:
https://github.com/cameyo42/newLISP-Not ... .lsp#L4699

cameyo

Hint: Enigma machine

cameyo

Decrypt this message:
"WQGI XH BJ HKOUHVO MWCAAP EEQG JDRPJMVH XQZ KSWSJJ STHSKGL XXLU TOXF."

cameyo

I can't post code on this forum.
I hope someone can solve the problem.
Thanks

cameyo

Example:

Code: Select all

(new Tree 'hh)
(for (i 1 5)
  (setq key (string i))
  (for (k i 1 -1)
    (hh key (if DOLLAR-it (extend (list k) DOLLAR-it)  (list k)))
  )
)
(hh)

Code: Select all

output: (("1" (1)) ("2" (1 2)) ("3" (1 2 3)) ("4" (1 2 3 4)) ("5" (1 2 3 4 5)))

Note: DOLLAR-it is $it

cameyo

Hi Ralph, i have two functions to solve puzzle like this: one uses brute-force and the other uses "amb" :-))
https://github.com/cameyo42/newLISP-Not ... .lsp#L9296

cameyo

Code: Select all

((("e" 9) ("f" 7) ("i" 6) ("l" 2) ("n" 1) ("p" 0) ("s" 4) ("u" 5) ("w" 8))
 (("e" 8) ("f" 2) ("i" 3) ("l" 7) ("n" 1) ("p" 0) ("s" 6) ("u" 5) ("w" 4))
 (("e" 9) ("f" 2) ("i" 8) ("l" 7) ("n" 1) ("p" 0) ("s" 4) ("u" 5) ("w" 6)))

cameyo

Solve this (each letter represent a different digit):

Code: Select all

   LISP *
    FUN =
---------
NEWLISP

There are three solution.
p.s. obviously you have to use newlisp :-)

cameyo

With ImageMagick is possible to create an image from within newLISP. ImageMagick : https://imagemagick.org/ The following command of ImageMagick creates an image "image.png" from a text file "pixels.txt": convert pixels.txt image.png The following command of ImageMagick creates an image "image.png" ...

cameyo

Hope someone will fix this problem...

cameyo

Thanks pda

cameyo

This works for me:

Code: Select all

(define (hash? hash)
  (and (context? (evals hash))
       (not (list? (evals (sym (term hash) hash nil))))))

With "eval" instead of "evals" (to avoid "Internal server error")

cameyo

Code: Select all

> (push x x)
(?)
> (x 0 0)
ERR: list reference changed
x

Boom

cameyo

(println "Happy New Year " (- 1 (- 2 (- 3 (* 4 (- 5 (+ 6 (* 7 8 9))))))))

newlispfanclub.alh.net

Search found 168 matches

Lisp book

Re: setq '

Function as list

Re: newLISP v.10.7.0 Stable Release

Re: string function

Re: string function

string function

Re: setq '

Creation of lists with predefined structure and random values

setq '

Re: List of indexes

Re: Decrypt message

Re: Decrypt message

Decrypt message

Forum is broken

Editing the lists in the hash-maps

Re: Cryptarithmetic

Re: Cryptarithmetic

Cryptarithmetic

ImageMagick

Re: forum problems?

Re: Create a function with a function

Re: Hash-map e contexts

Re: Error in 10.7.6

Happy New Year