topic Re: Convert Python to Lisp in Visual LISP, AutoLISP and General Customization Forum

Convert Python to Lisp

phmzanatta93 — Tue, 14 Jun 2022 15:09:05 GMT

Hi everyone,

I am currently on the process of learning Lisp coding. I am trying to do an exercise and it is basically this python code:

import random target_num, guess_num = random.randint(1, 10), 0 while target_num != guess_num: guess_num = int(input('Guess a number between 1 and 10 until you get it right : ')) print('Well guessed!')

How would I write thin in Lisp to run it on AutoCAD?

Re: Convert Python to Lisp

ВeekeeCZ — Tue, 14 Jun 2022 15:18:47 GMT

There is no such function as "random" in lisp. Has to be a custom func - as THIS example.

Re: Convert Python to Lisp

ВeekeeCZ — Tue, 14 Jun 2022 15:27:23 GMT

Heres your one.

(defun c:GuessNumber ( / LM:rand LM:randrange taget_number guess_num)
  
  ;; Rand  -  Lee Mac
  ;; PRNG implementing a linear congruential generator with
  ;; parameters derived from the book 'Numerical Recipes'
  
  (defun LM:rand ( / a c m )
    (setq m   4294967296.0
	  a   1664525.0
	  c   1013904223.0
	  $xn (rem (+ c (* a (cond ($xn) ((getvar 'date))))) m)
	  )
    (/ $xn m))
  
  (defun LM:randrange ( a b )
    (+ (min a b) (fix (* (LM:rand) (1+ (abs (- a b)))))))
  
  ; ----------------------------------
    
  (setq taget_number (LM:randrange 1 10))
  
  (while (/= taget_number guess_num)
    (setq guess_num (getint "\nGuess a number between 1 and 10 until you get it right: ")))
  
  (princ "\nFinally! Now you're right.")
  (princ)
  )

Re: Convert Python to Lisp

phmzanatta93 — Tue, 14 Jun 2022 15:33:00 GMT

This worked! It considers 0 as a possible answer as well though. Thanks a lot for your help and I realized there will be a long journey until I get hold of this.

Thanks!

Re: Convert Python to Lisp

ВeekeeCZ — Tue, 14 Jun 2022 15:43:47 GMT

I don't know python much. So if that code restricts a user input to a range 1-10, that is what lisp can't. has to be done manually. Just THIS is possible.