Aquí hay una función para obtener el primer dígito de un entero positivo:
[math] car (x) = \ left \ lfloor \ frac {x} {10 ^ {\ left (\ left \ lfloor \ log x \ right \ rfloor \ right)}} \ right \ rfloor [/ math]
Restando esto de x nos obtiene todos los dígitos excepto el primero:
- ¿Cómo se sienten los abogados sobre las matemáticas?
- ¿Qué regla matemática dice que si [matemática] A = B [/ matemática] y [matemática] B = C [/ matemática], entonces [matemática] A = C [/ matemática]?
- A a I son nueve enteros del 1 al 9 sin clasificación. Si A + B + C + D = 20, B + C + D + E + F = 20, D + E + F + G + H = 20, F + G + H + I = 20, ¿cuáles son los valores de A a I?
- ¿Son buenos los INTP en matemáticas?
- Cómo demostrar que una red es distributiva
[matemáticas] cdr (x) = x – \ left \ lfloor \ frac {x} {10 ^ {\ left (\ left \ lfloor \ log x \ right \ rfloor \ right)}} \ right \ rfloor [/ math]
Dado un número, podemos agregar otro dígito al final así:
[matemáticas] agregar (a, b) = 10a + b [/ matemáticas]
Con estos, podemos hacer una función recursiva para invertir un número: quitar el primer dígito, invertir el resto y volver a colocar el dígito al final. El caso trivial es
[matemática] inversa (x) = x [/ matemática] si x <10
[matemáticas] reverse (x) = append (cdr (x), car (x)) [/ math] de lo contrario.
