Mostra notizie nelle discussioni
  • Avatar
    Scritto da
    Non Autenticato
    il 2009-01-10 17:29:00.0 alle 2009-01-10 17:29:00.0
    lispari
    nonostante tutto il vino di ieri ho risolto un altro esercizio tutt'altro che triviale (alla faccia del detrattore giambico)

    (defun iterative-improve (good-enough-p improve)
  (lambda (guess)
    (labels ((iter (guess)
           (if (funcall good-enough-p guess)
           guess
           (iter (funcall improve guess)))))
      (iter guess))))

(defun my-fixed-point (f first-guess)
  (funcall
   (iterative-improve
    (lambda (guess) (< (abs (- guess (funcall f guess))) 0.001))
    (lambda (guess) (funcall f guess)))
   first-guess))

(defun my-sqrt-3 (x)
  (my-fixed-point
   (lambda (y) (/ (+ y (/ x y)) 2)) 1.0))
    • Avatar
      ☺
      Scritto da
      avvelentani
      Cubicolario
      il 2009-01-10 18:07:00.0 alle 2009-01-10 18:07:00.0
      Trollate totali: 18184
      Re: lispari

      - Scritto da:
      > nonostante tutto il vino di ieri ho risolto un
      > altro esercizio tutt'altro che triviale (alla
      > faccia del detrattore
      > giambico)
      >
      > 
      > (defun iterative-improve (good-enough-p improve)
>   (lambda (guess)
>     (labels ((iter (guess)
>            (if (funcall good-enough-p guess)
>            guess
>            (iter (funcall improve guess)))))
>       (iter guess))))
> 
> (defun my-fixed-point (f first-guess)
>   (funcall
>    (iterative-improve
>     (lambda (guess) (< (abs (- guess (funcall f
> guess)))
> 0.001))
>     (lambda (guess) (funcall f guess)))
>    first-guess))
> 
> (defun my-sqrt-3 (x)
>   (my-fixed-point
>    (lambda (y) (/ (+ y (/ x y)) 2)) 1.0))
> 
>


      Come mai iterative-improve e` curryed?
      I think happiness is love
      - Vladimir Putin
      • Avatar
        Scritto da
        Non Autenticato
        il 2009-01-10 18:12:00.0 alle 2009-01-10 18:12:00.0
        Re: lispari

        - Scritto da: avvelentani
        >
        > - Scritto da:
        > > nonostante tutto il vino di ieri ho risolto un
        > > altro esercizio tutt'altro che triviale (alla
        > > faccia del detrattore
        > > giambico)
        > >
        > > 
        > > (defun iterative-improve (good-enough-p improve)
> >   (lambda (guess)
> >     (labels ((iter (guess)
> >            (if (funcall good-enough-p guess)
> >            guess
> >            (iter (funcall improve guess)))))
> >       (iter guess))))
> > 
> > (defun my-fixed-point (f first-guess)
> >   (funcall
> >    (iterative-improve
> >     (lambda (guess) (< (abs (- guess (funcall f
> > guess)))
> > 0.001))
> >     (lambda (guess) (funcall f guess)))
> >    first-guess))
> > 
> > (defun my-sqrt-3 (x)
> >   (my-fixed-point
> >    (lambda (y) (/ (+ y (/ x y)) 2)) 1.0))
> > 
> >

        >
        > Come mai iterative-improve e` curryed?

        era richiesto dall'esercizio
        • Avatar
          ☺
          Scritto da
          avvelentani
          Cubicolario
          il 2009-01-10 18:32:00.0 alle 2009-01-10 18:32:00.0
          Trollate totali: 18184
          Re: lispari

          - Scritto da:
          >
          > - Scritto da: avvelentani
          > >
          > > - Scritto da:
          > > > nonostante tutto il vino di ieri ho risolto un
          > > > altro esercizio tutt'altro che triviale (alla
          > > > faccia del detrattore
          > > > giambico)
          > > >
          > > > 
          > > > (defun iterative-improve (good-enough-p
> improve)
> > >   (lambda (guess)
> > >     (labels ((iter (guess)
> > >            (if (funcall good-enough-p guess)
> > >            guess
> > >            (iter (funcall improve guess)))))
> > >       (iter guess))))
> > > 
> > > (defun my-fixed-point (f first-guess)
> > >   (funcall
> > >    (iterative-improve
> > >     (lambda (guess) (< (abs (- guess (funcall
> f
> > > guess)))
> > > 0.001))
> > >     (lambda (guess) (funcall f guess)))
> > >    first-guess))
> > > 
> > > (defun my-sqrt-3 (x)
> > >   (my-fixed-point
> > >    (lambda (y) (/ (+ y (/ x y)) 2)) 1.0))
> > > 
> > >

          > >
          > > Come mai iterative-improve e` curryed?
          >
          > era richiesto dall'esercizio

          Che esercizi sono? SICP?
          I think happiness is love
          - Vladimir Putin
          • Avatar
            Scritto da
            Non Autenticato
            il 2009-01-10 18:33:00.0 alle 2009-01-10 18:33:00.0
            Re: lispari

            - Scritto da: avvelentani
            >
            > - Scritto da:
            > >
            > > - Scritto da: avvelentani
            > > >
            > > > - Scritto da:
            > > > > nonostante tutto il vino di ieri ho risolto
            > un
            > > > > altro esercizio tutt'altro che triviale
            > (alla
            > > > > faccia del detrattore
            > > > > giambico)
            > > > >
            > > > > 
            > > > > (defun iterative-improve (good-enough-p
> > improve)
> > > >   (lambda (guess)
> > > >     (labels ((iter (guess)
> > > >            (if (funcall good-enough-p guess)
> > > >            guess
> > > >            (iter (funcall improve guess)))))
> > > >       (iter guess))))
> > > > 
> > > > (defun my-fixed-point (f first-guess)
> > > >   (funcall
> > > >    (iterative-improve
> > > >     (lambda (guess) (< (abs (- guess
> (funcall
> > f
> > > > guess)))
> > > > 0.001))
> > > >     (lambda (guess) (funcall f guess)))
> > > >    first-guess))
> > > > 
> > > > (defun my-sqrt-3 (x)
> > > >   (my-fixed-point
> > > >    (lambda (y) (/ (+ y (/ x y)) 2)) 1.0))
> > > > 
> > > >

            > > >
            > > > Come mai iterative-improve e` curryed?
            > >
            > > era richiesto dall'esercizio
            >
            > Che esercizi sono? SICP?

            si, Es. 1.46
            Loro usano scheme, io vado di common lisp
<softv>

Pagina generata in 59 millisecondi

Utenti attivi: 11 nell'ultimo minuto, 19 negli ultimi cinque minuti, 37 negli ultimi 15 minuti