scratch

gistfile.clj

(let [bid-duration    (t/days 10)
      reveal-duration (t/days 12)]
  (fsm
   :store  {high-bid    0
            high-bidder nil
            returns     {}
            created     (from :time)}
   :states [:bid    (<= bid-duration    (t/interval created (:time tx)))
            :reveal (<= reveal-duration (t/interval created (:time tx)))
            :finish
            :cancel]
   (place-bid [bidder value]
     (let [store {:high-bid    value
                  :high-bidder bidder}]
       (if-not high-bidder
         (fsm this :store store)
         (fsm this :store
              (assoc store
                :returns (update returns high-bidder (fnil + 0) high-bid))))))
   (^:expose bid :bid [this tx bid]
    (fsm this :store
         {:bids (update bids (:sender tx) conj {:bid bid :deposit (:value tx)})}))
   (^:expose reveal :reveal [this tx]
    ...)))