fork download
copy 
  1. (print(eval '(if()({(quote SCISSORS)(quote PAPER)(quote PAPER)(quote ROCK)(quote ROCK)(quote SCISSORS)}(read))(eval(quote(nth(position(read)(quote("SCISSORS""PAPER""ROCK")):test(quote string-equal))(quote(ROCK SCISSORS PAPER))))))))
  2. ;'['"'+gets+'"']))
Success #stdin #stdout 0.01s 38024KB
comments (?)
stdin
copy 
ROCK
stdout
copy 
PAPER
https://ideone.com/1JaH0z
language:
Common Lisp (clisp 2.49.92)
created:
7 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!