fork download
copy 
  1. (let ((xs '((a . 1) (b . 2))))
  2.   (let ((p (assoc 'a xs))
  3.         (q (assoc 'c xs)))
  4.     (display (if p "Found" "Not found"))
  5.     (newline)
  6.     (display (if q "Found" "Not found"))))
Success #stdin #stdout 0s 7856KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Found
Not found
https://ideone.com/aQ19bT
language:
Scheme (chicken 4.13)
created:
3 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!