fork(1) download
copy 
  1. (defun shipping-cost (amount international)
  2.   (if international
  3.       (cond ((<= amount 333.3) (* amount 0.15))
  4.             ((>  amount 333.3) 50))
  5.       (cond ((> amount 75) 0)
  6.             ((< amount 75) (/ amount 10))
  7.             (t 0))))
  8.  
  9. (let ((cost (shipping-cost 199.9 t)))
  10.   (format t "~a~%" cost))
Success #stdin #stdout 0.01s 24952KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
29.985
https://ideone.com/7fbSmf
language:
Common Lisp (sbcl 1.4.16)
created:
4 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!