FSA (finite state machine) 유한 상태 기계

(defn elevator [commands]
  (letfn
    [(ff-open [[_ & r]]
      "엘리베이터가 1층에서 문이 열려있으면 문을 닫거나 종료할 수 있다
      #(case _
        :close (ff-closed r)
        :done true
        false))
 
     (ff-closed [[_ & r]]
       "
 
 
     )
 
     ]
  )
 
)

• letfn