fork download
copy 
  1. (defun combo (size n1 n2 n3)
  2.   (apply #'+ (list (* 3 size) n1 (mod (- n1 n2) size) (mod (- n3 n2) size))))
  3.  
  4. (print (combo 5 1 2 3))
Success #stdin #stdout 0.02s 10584KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
21
https://ideone.com/fpiprx
language:
Common Lisp (clisp 2.49.92)
created:
11 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!