PasteRack.org
Paste # 93794
2022-11-21 18:17:55

Fork as a new paste.

Paste viewed 1421 times.


Embed:

  1. #lang racket
  2.  
  3. ;;;;  =========================================================================
  4. ;;;;
  5. ;;;;  Author: Claudine WEBER
  6. ;;;;  Student ID: 22015228
  7. ;;;;  Last updated: Novembre 20th 2022
  8. ;;;;  Homework 2
  9. ;;;;
  10. ;;;;  =========================================================================
  11.  
  12. (import (scheme base) (pfa utilities))
  13.  
  14. ; Pour de petits tests unitaires.
  15. (#%require schemeunit)
  16.  
  17. (define (create-account init owner authorised-people)
  18.   (let ((historique '(list created init)))
  19.     (list init owner (list authorised-people))
  20.     ;(balance init)
  21.  
  23.  ;     (let*
  24. ;          (balance (
  25. ;             (lambda (amount)
  26. ;               (and amount
  27. ;                    (>= amount
  28. ;       (cdr (assq 'additional-account min-dest-alist)))
  29. ;   amount))
  30. ;             )
  31. ;        (dest-alist
  32. ;         (list
  33. ;          (cons 'current-account init)
  34. ;          (withdrawal
  35. ;           (lambda (amount from)
  36. ;             (let ((association (assq from dest-alist)))
  37. ;               (and association
  38. ;                    (let* ((balance (cdr association))
  39. ;                           (new-balance-presumed (- balance amount)))
  40. ;                      (and (>= new-balance-presumed
  41. ;                               (cdr (assq from min-dest-alist)))
  42. ;                           (begin
  43. ;                             (set-cdr! association
  44. ;                                       new-balance-presumed)
  45. ;                             new-balance-presumed))))))))
  46.   ;      )
  47.              ;;
  48.              (lambda (log)
  49.                (cond
  50.                 ((eq? log 'name) (lambda () owner))
  51.                 ((eq? log 'balance (lambda () init))
  52.                 ((eq? log 'get))
  53.                 ((eq? log 'withdrawal) )
  54.         ))
  55. )
  56.    )
  57. )
  58.  
  59. ; Tests
  60. ; J'ai repris et complété les tests proposés dans l'énoncé du DM2.
  61.  
  62. (define Sulitzer-account (create-account 500 'Sulitzer '(Ewa)))
  63. (writeln/return Sulitzer-account)
  64. ;(writeln/return ((Sulitzer-account 'name)))
  65. (writeln/return ((Sulitzer-account 'balance)))
  66. ;((Sulitzer-account 'balance) 'Ewa)
  67. ;((Sulitzer-account 'get) 100)
  68. ;((Sulitzer-account 'withdrawal) 1200 'Sulitzer)
  69. ;((Sulitzer-account 'withdrawal) 200 'Sulitzer)
  70. ;((Sulitzer-account 'log) 'Sulitzer)

=>