some haskell
map (\x -> exists' (singleton x) (<= 4)) (filter (set [1..3]) [0..10])
some clj
(ns duck-hunt (:use :reload-all [clodiuno core firmata]) (:import (java.awt Toolkit Color) (java.awt.image BufferedImage) (java.awt.event KeyAdapter) (javax.swing JFrame JPanel))) (defn screen-size [] (let [screen (.getScreenSize (. java.awt.Toolkit getDefaultToolkit))] [(.getWidth screen) (.getHeight screen)]))