A better way to do this?
Posted: Wed Apr 08, 2009 7:36 am
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?
Kind regards,
Bruce.
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 all
(dolist
(i
(parse
(read-file "c:\\temp\\data") "\r\n"
)
)
(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" )
)
)
)
)
)
Bruce.