[SOLVED] Common Lisp

madsovenielsen · 02-22-2012, 01:47 PM

Hello

Is there anyway of dissecting a number, so i can check the last digit etc. ?

For instance (Pseudocode):

Code:

if last-digit == 8 {
    print "..."
}
if last-digit == 9 {
    print "..."
}
if last-digit < 5 {
    exit
}

firstfire · 02-22-2012, 02:22 PM

Hi.

Probably the `truncate' function may be of some use here:

Code:

[1]> (setf x 1035)
1035
[2]> (loop do (setf (values x last-digit) (truncate x 10)) (print last-digit) while (/= x 0))

5 
3 
0 
1 
NIL
[3]>

Hope that helps.

audriusk · 02-22-2012, 02:53 PM

I don't know Lisp, but the idea would be to use integer division and modulo operation by 10, e.g.:

1337 mod 10 -> 7
1337 div 10 mod 10 -> 3

and so on.