Hjälp med lisp

Skulle nog kunna lösas med en resultat variabel.
Du vet hur man plocka fram sista siffran i ett tal?
Den siffran vill du ju ha sist i det nya talet eller hur, så om du då hela tiden tar fram fram sista siffran i det gamla talet och lägger den sist i det nya så kommer du ju ha vänt det.

Trace:
f(tal vänt-tal) - funktion(argument argument)

f(1234 0)
f(123 4)
f(12 43)
f(1 432)
f(0 4321)

Du bör ju ha gjort lägg-till-siffra-sist och sista-siffran tidigare, ta-bort-sista-siffran är också användbar, om inte; gör dem. Efter det bör det inte vara så svårt, du vill ju lägga till sista-siffran av inmatat tal sist hela tiden i din resultatvariabel och trolla bort sista siffran i det inmatade talet.

Testa, och om du inte får till det posta lite kod här inom code-taggar så kan vi se om vi kan hjälpa dig, då ingen kommer nog att ge den exakta koden.

Något liknande (lista-av-siffror-till-tal (reverse (tal-till-lista-av-siffror tal)))
Med vettiga implementationer av lista-av-siffror-till-tal, reverse och tal-till-lista-av-siffror

Skulle väl också fungera, men blir inte det krångligare att först definera en funktion för att göra ett tal till en lista av siffror sedan skapa reverse och tillbaka till tal igen?

Om det är den laboration jag tror det är så får man nog inte använda den inbyggda reverse, då en av uppgifterna går ut på att skapa den. Forsatt om det är den jag tror det är så står det i beskrivningen till uppgiften att man ska använda lägg-till-siffra-sist och sista-siffran och andra tidigare skapta funktioner.

Det vore väl annars ganska enkelt att skriva en iterativ funktion med två parametrar: a och b. Varje iteration anropar sedan funktionen med 10*a + (b mod 10) samt heltalsdelen av b/10.

Men det är ju det han gör i stort sett
(defun sista-siffran (n)
(mod n 10))

och

(defun lägg-till-siffra-sist (siffra n)
(+ siffra (* n 10)))

Vilket resulterar att han gör som du sa, fast i skiljda funktioner.

Edit: Förstår vad du menar när jag tänker efter lite; varför göra mer än vad som behövs?

Det kanske är jag som är blind, men har det avslöjats hur sista-siffran och lägg-till-siffra-sist ser ut?

Nä jag bara antog det, har varit uppe på forumet tidigare med (mod n 10) bl.a. fimps tråd och lägg till sista siffran beskrev han ju i första posten, men har ingen garanti att de ser ut så.
Så nej du är inte blind

Blev lite sugen att skriva det själv

Iterativa versionen i scheme:

(define (reverse-num n)
  (let loop ((i n) (o 0))
    (if (= i 0)
      o
      (let ((r (remainder i 10))
            (ni (floor (/ i 10)))
            (no (* o 10)))
        (loop ni (+ r no))))))