All pastes #1224009 Raw Edit

stm.lisp

public text v1 · immutable
#1224009 ·published 2008-10-09 20:39 UTC
rendered paste body
;;;; LOL:
;;;; http://www.stm.info/English/info/a-tarif.htm

(let* ((cam-price 66.25)
       (ticket-price 2.00)
       (weeks/month 4)
       (dates/week 5)
       (trips/date 2)
       (dates (* weeks/month dates/week))
       (trips (* trips/date dates))
       (cam/trip-price (/ cam-price trips))
       (tickets-price (* ticket-price trips)))
  (format t "
Considering that the CAM costs $~$ and that you will be travelling ~A
times to attend all of your ~A dates, needing ~A trips per date and
~A dates per week, the actual cost per-trip using the CAM would amount
to $~$, versus $~$ per trip using tickets (totalling $~$ in tickets).
"
	  cam-price trips
	  dates trips/date
	  dates/week
	  cam/trip-price ticket-price tickets-price))

#|
Considering that the CAM costs $66.25 and that you will be travelling 40
times to attend all of your 20 dates, needing 2 trips per date and
5 dates per week, the actual cost per-trip using the CAM would amount
to $1.66, versus $2.00 per trip using tickets (totalling $80.00 in tickets).
|#