fork download
copy 
  1. (defun make-rect (r w h)
  2.   (setf (get r 'width) w)
  3.   (setf (get r 'height) h)
  4.   (setf (get r 'area) (lambda (obj) (* (get obj 'width) (get obj 'height))))) 
  5.  
  6. (make-rect 'r1 20 30)
  7.  
  8. (print (funcall (get 'r1 'area) 'r1))
  9.  
  10.  
  11.  
Success #stdin #stdout 0s 38032KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
600
https://ideone.com/0oVHsu
language:
Common Lisp (clisp 2.49.92)
created:
5 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!