Ideone.com

fork download

copy

(defun combo (size n1 n2 n3)
  (apply #'+ (list (* 3 size) n1 (mod (- n1 n2) size) (mod (- n3 n2) size))))
 
(print (combo 5 1 2 3))

Success #stdin #stdout 0.02s 10584KB

stdin

copy

Standard input is empty

stdout

copy

https://ideone.com/fpiprx

language:

Common Lisp (clisp 2.49.92)

created:

visibility:

public

Share or Embed source code

The brand new service which powers Ideone!

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