(defun dist-list ()
  (maphash #'(lambda (k v)
	              (format t "~A = ~A~%" k v)) 
	      *dists*))

;------------------------------
;fill hash table

(defun demo-task4 ()
   (define age 20 ~ ~~~ ~~~~~~ ~~~~~~~~~~ ~~~~~~~~~~ ~~~~~~ ~~~ 60 ~)
   (define watt 0 ~ ~~~ ~~~~~~ ~~~~~~ ~~~ 0.4 ~)
   (define omega 10 ~ ~~~ ~~~ ~ ~ ~~~~~~ ~~~ 100 ~)
   (define alpha 0.1 ~ ~~~ ~~~~~~ ~~~~~~~~~~ ~~~~~~~~~~ 0.9 ~)
   (define beta 20 ~ ~~~ ~~~~~~~~~ 30 ~~~~)
   (dist-list))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Task 5
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun demo-task5 ()
  (update 0.8 'alpha)
  (update 48 'omega)
  (update 0.2 'watt)
  (update 22 'beta)
  (update 55 'age)
  (dist-list))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Task 6
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun demo-task6 ()
 (list (cons 'size-before-190 (nudge 190 0.5 'size))
  (cons 'size-before-7 (nudge 21 0.25 'teamsize))
  (cons 'size-before-1 (nudge 54 0.3 'taskcost))
  (cons 'size-before-15 (nudge 0.2 0.2 'team-alpha))))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Task 7
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun demo-task7 ()
 (list
  (cons 'teamsize (our-sample 'teamsize t))
  (cons 'team-alpha (our-sample 'team-alpha))
  (cons 'size (our-sample 'size t))
  (cons 'taskcost (our-sample 'taskcost))
  (cons 'taskvalue (our-sample 'taskvalue))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Task 8
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun demo-task8 ()
  (complete #(teamsize (team-alpha . 0.3) (size . 250) taskcost taskvalue taskvaluechange)))