A better way to do this?

[axtens]

G'day everyone



I'm starting to like this language. But I'm still approaching it as one who has been 'polluted' by other languages.



Is there a better way to do this?

Code Select Expand

(dolist
  (i
    (parse
      (read-file "c:\temp\data") "rn"
    )
  )
(begin
(set 'j (reverse (parse i "t")))
(if (not (empty? j))
(begin
;(print j "n")
(set 'k (j 0))
(set 'l (j 1))
;(print (string (cons 'find (list k l 1))))
    (set 'm (eval-string (string (cons 'find (list k l 1)))))
(when (true? m)
;(print m "n")
(print "afti(" l ", " k ")=" (slice l m) "n" )
)
)
)
)
)


Kind regards,

Bruce.

[HPW]

In you first postet version you ask for set and multiple argument:

Code Select Expand


(set 'k (j 0) 'l (j 1))


[axtens]

In you first postet version you ask for set and multiple argument:

Code Select Expand


(set 'k (j 0) 'l (j 1))


Marvellous. Thanks very much.



Bruce.

[Lutz]

instead of:

Code Select Expand

(set 'm (eval-string (string (cons 'find (list k l 1)))))



you could do:

Code Select Expand

(set 'm (eval (cons 'find (list k l 1))))

or even better:

Code Select Expand

(set 'm (apply find (list k l 1))

ps: welcome to newLISP

[axtens]

or even better:

Code Select Expand

(set 'm (apply find (list k l 1))

ps: welcome to newLISP

Thanks for the welcome. And thanks for the help with the code -- much appreciated!!