scheme

[iceman1888]

hi,
ich soll ein programm schreiben welches zu berechnung von potenzen verwendet werden kann und es soll iterativ sein..
ich hab es wie folgt aber er gibt mir immer nur 1 aus was is der fehler??

(define (schnell-pot-iter b n)
(pot-iter b n))
(define (pot-iter b n)
(cond ((= 0 n) 1)
((gerade? n) (pot-iter (quadrat b) (/ n 2)))
(else (pot-iter b (- n 1)))))
(define (gerade? n) (=(remainder n 2) 0))
(define (quadrat b)(* b b))

greetz iceman

---------- Beitrag hinzugefügt um 17:23 ---------- Vorheriger Beitrag war um 15:26 ----------

hat keine ne idee wie es funktionieren könnte??

 

[r3dd0]

Das liegt an:

(cond ((= 0 n) 1)

Sobald n = 0 wird immer 1 zurueckgeben.

 

[iceman1888]

ja aber wie muss es denn aussehen??
ich muss ja irgendwie sagen das 1 rauskommen soll wenn der exp 0 ist

 

[r3dd0]

Das solltest du in der anderen Funktion machen, bevor du pot-iter aufrufst.

 

[asdfman]

Heute etwa noch nicht dein SICP gelesen?

(define pot
  (lambda (base exp)
    (define iter
      (lambda (base mult i)
        (if (= i 1)
            mult
            (* mult (iter base mult (- i 1))))))
    (if (= exp 0)
        1
        (iter base base exp))))

 

[iceman1888]

meinst du so:
(define (schnell-pot-iter b n)
(cond ((= n 0)1)
((= b 0)0)
(pot-iter b n)))
(define (pot-iter b n)
(cond ((gerade? n) (pot-iter (quadrat b) (/ n 2)))
(else (pot-iter b (- n 1)))))
(define (gerade? n) (=(remainder n 2) 0))
(define (quadrat b)(* b b))

??

---------- Beitrag hinzugefügt um 20:52 ---------- Vorheriger Beitrag war um 20:49 ----------

@asdfman
was ist denn "SICP"??
aber wenn ich das eingebe meckert er auch rum...
ich darf leider noch kein lambda und multi benutzen...

 

[asdfman]

http://mitpress.mit.edu/sicp/full-text/book/book.html

€: Und wie willst du potenzieren wenn du nicht multiplizieren darfst?

 

[iceman1888]

multiplizieren schon aber nich mit mult sondern mit *....
in dem buch steht aber keine iterative variante des potenzierens..
oder??

 

[r3dd0]

@Iceman: Ich meine so:

(define (schnell-pot-iter b n)
  (if (= n 0)
      1
      (pot-iter b n)))
...

@asdfman: Das ist zu langsam. Sinn ist es auf eine logarithmische Laufzeit zu kommen indem man das in einzelne Teile unterteilt: 2^8 = 2^4 * 2^4 = 2^2 * 2^2 * 2^2 * 2^2 = ...
Einfach durchiterieren braucht zu viele Schritte und damit eine lineare Laufzeit.

 

[asdfman]

mult ist doch nur eine Variable. Die kannst du nennen wie du willst.
Und statt

(define a (lambda (b) (...))

kannst du auch

(define (a b) (...))

nehmen.

 

[iceman1888]

so ich hab das jetzt so:
(define (schnell-pot-iter b n)
(if (= n 0)
1
(pot-iter b n)))
(define (pot-iter b n)
(cond ((gerade? n) (pot-iter (quadrat b) (/ n 2)))
(else (pot-iter b (- n 1)))))
(define (gerade? n) (=(remainder n 2) 0))
(define (quadrat b)(* b b))

warum gibt er mir denn da nichts aus??

 

[r3dd0]

Weil du keine Abbruchbedingung hast.
Da sollte noch ein ((= n 0) b) rein. Und dann ist es immer noch nicht iterativ.
Dazu brauchst du mindestens 3 Variablen. (Basis, Expontent, Zaehler).

 

[iceman1888]

häääää

 

[asdfman]

häääää

Lies SICP.

 

[iceman1888]

ich hab das jetzt so und da funzt es aber nur mit geradem exp...
wieso??

(define (schnell-pot-iter b n)
(if (= n 0)
1
(pot-iter b n)))
(define (pot-iter b n)
(cond ((= n 0)b)
((gerade? n) (pot-iter (quadrat b) (/ n 2)))
(else (pot-iter b (- n 1)))))

(define (gerade? n) (=(remainder n 2) 0))

(define (quadrat b)(* b b))

---------- Beitrag hinzugefügt um 21:18 ---------- Vorheriger Beitrag war um 21:17 ----------

wie bau ich den den zähler da ein??

 

[asdfman]

So wie ich es gezeigt habe. Bei mir heißt der Zähler i.

 

[iceman1888]

verdammt ich kriegs echt nicht hin...
aber danke für eure hilfe...
ich muss das aber leider bis morgen früh abgeben und schaff es nicht noch das buch zu lesen...

wär also super wenn mir jemanden eine iterative variante zeigen könnte...

greetz iceman

 

[kenen]

rekursiv, aber effektiv in scheme:

(define (power x y) ;; x to the power of y
    (cond ((> 0 y) unspecified) ;; negative exponent unspecified
          ((= 0 y) 1) ;; x to the power of 0 is 1
	  ((= 1 y) x) ;; x to the power of 1 is x
	  ((= 0 x) 0) ;; 0 to the power of y is 0
	  ((= 1 x) 1) ;; 1 to the power of y is 1
	  ((= 0 (modulo y 2)) (power (* x x) (/ y 2)))
	  (else (* (power (* x x) (/ (- y 1) 2)) x))
    )
)

um dir nicht alles vorweg zu nehmen, eine andere variante iterativ in haskell:

-- x to the power of y, undefined for y <= 0
power x y = foldr (*) 1 $ take y $ repeat x

 

[r3dd0]

@kenen: Das ist keine Iteration.

 

[asdfman]

Arg. Man wies mich darauf hin dass meine Variante auch nicht iterativ war...

(define pot
  (lambda (base exp)
    (define iter
      (lambda (base acc i)
        (if (= i 1)
            acc
            (iter base (* base acc) (- i 1)))))
  (if (= exp 0)
        1
        (iter base base exp))))

Nun ist sie es.

 

[kenen]

@kenen: Das ist keine Iteration.

Foldr lässt sich iterativ implementieren, von daher valide.

 

[iceman1888]

hat niemand eine einfache iterative variante für scheme??
biddde..

 

[asdfman]

Was ist denn jetzt an meiner Lösung kompliziert?
Einfacher wirst du es wohl kaum bekommen.

 

[iceman1888]

wenn ich das in scheme eingebe meckert er immer rum
"lambda: expected only one expression for the function body, but found one extra part in: (if (= exp 0) 1 (iter base base exp))"
und lambda dürfen nicht verwenden

 

[asdfman]

Naja wenn du nichtmal copy/paste kannst kann ich dir wirklich nicht mehr helfen ;(

 

[iceman1888]

(define pot
  (lambda (base exp)
    (define iter
      (lambda (base acc i)
        (if (= i 1)
            acc
            (iter base (* base acc) (- i 1)))))
  (if (= exp 0)
        1
        (iter base base exp))))

---------- Beitrag hinzugefügt um 22:25 ---------- Vorheriger Beitrag war um 22:24 ----------

genauso hab ich das in scheme eingefügt und dann kommt die fehlermeldung

 

[r3dd0]

Du bist ein Ersemester und arbeitest mit Dr. Scheme mit einem Beginner Languagelevel.
D.h. Du darfst du eingeschraenkt Funktionen nutzen. lamba gehoerst definitiv nicht dazu.

Außerdem ist das ja auch ueberhaupt nicht komisch, wenn du sowas nach 3 Wochen Studium abgibst und eigentlich noch nie was von gehoert hast.

 

[iceman1888]

jap stimmt genau...

aber nochmal danke für eure hilfe...

greetz iceman