PasteRack.org
Paste # 50510
2021-11-21 18:54:24

Fork as a new paste.

Paste viewed 1126 times.


Embed:

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

=>

'()