PasteRack.org
Paste # 733
2021-11-21 19:05:45

Forked from paste # 78141.

Fork as a new paste.

Paste viewed 1193 times.


Embed:

autograder using built-in flatten instead of mine

  1. #lang racket/base
  2.  
  3. (require (except-in racket
  4.                     flatten))
  5. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  6. ;     CS 381 - Programming Lab #4 ;
  7. ; ;
  8. ;  < your name >   ;
  9. ;  < your email >                  ;
  10. ; ;
  11. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  12.  
  14. ; your code here
  15. (define (member? e lst)
  16.   (cond
  17.     [(empty? lst)        #f]
  18.     [(= e (first lst))   #t]
  19.     [else
  20.      (member? e (rest lst))]))
  21.  
  23. ;; '(1 2 3)
  24. ;; check whether 1 is a member of '(2 3),
  25. ;;   the rest of the list
  26. (define (set? lst)
  27.   (cond
  28.     [(empty? lst) #t]
  29.     [(member? (first lst) (rest lst)) #f]
  30.     [else
  31.      (set? (rest lst))]))
  32.  
  33. ;; '(1 2 3) '(4 5 6)  => '(1 2 3 4 5 6)
  34. ;; '(1 2)     '(2 3)  => '(1 2 3)
  35. ;; '()        '(2 3)  => '(2 3)
  36. ;; '(1 2)        '()  => '(1 2)
  37. ;; '(1 2) '(2 3)      => '(1 2 3)
  38. ;; '(1 2 3) '(1 3)      => '(1 2 3)
  39. (define (union lst1 lst2)
  40.   (cond
  41.     ;;[condition expression]
  42.     [(empty? lst1) lst2]
  43.     [(empty? lst2) lst1]
  44.     ;; check whether the first element of lst1
  45.     ;;  appears in lst2.
  46.     ;;  if it does, then don't add it to the output
  47.     ;;  if it doesn't, then include it in the output
  48.     [(member? (car lst1) lst2) (union (cdr lst1) (lst2))]
  49.  
  50.     ))
  51.  
  52. ;;(and condition0 condition1 etc)
  53. ;; (cond
  54. ;;   [(and (empty? lst0) (empty? lst1))  '()]
  55. ;;   )
  56.  
  57. ;; (flatten-one '((1) 2)) #=> '(1 2)
  58. ;; (flatten-one '()) #=> '()
  59. ;; (flatten-one '(1)) #=> '(1)
  60. ;; (flatten-one '(1 2)) #=> '(1 2)
  61. ;; (flatten-one '(() 2)) #=> '(2)
  62. (define (flatten-one lst)
  63.   (cond
  64.     [(empty? lst) '()]
  65.     [(list? (first lst)) (append (flatten-one (first lst))
  66.                                  (flatten-one (rest lst)))]
  67.     [else
  68.      (cons (first lst) (flatten-one (rest lst)))]))
  69.  
  70. (flatten-one '())
  71.  
  72. (define (flatten lst1 lst2)
  73.   (append (flatten-one lst1) (flatten-one lst2)))
  74.  
  75. ;;;;;;;;;;;;;;;;;
  76. ;  DO NOT EDIT  ;
  77. ;;;;;;;;;;;;;;;;;
  78. ; enables testing via piping in stdin
  79. (define-namespace-anchor anc)
  80. (define ns (namespace-anchor->namespace anc))
  81. (let loop ()
  82.   (define line (read-line (current-input-port) 'any))
  83.   (if (eof-object? line)
  84.     (display "")
  85.     (begin (print (eval (read (open-input-string line)) ns)) (newline) (loop))))
  86.  
  88. #|
  89.  
  90. flatten: arity mismatch;
  91. the expected number of arguments does not match the given number
  92. expected: 1
  93. given: 2
  94. arguments...:
  95. '(1 (2 3) 5)
  96. '(8 (13 (21 34) 55))
  97. context...:
  98. /autograder/source/lab4.rkt:115:0: loop
  99. /autograder/source/lab4.rkt: [running body]
  100.  
  101. |#

=>

'()