ponzao

(reduce                          ; Kootaan yks mappi sanoista.
  (partial merge-with +)         ; Kahdessa mapissa olevien avainten arvot summataan.
  (map                           ; Suorittaa alla olevan funktion kaikille tiedostoille ({"foo" 1} {"baz" 10}).
    #(frequencies                ; Frequencies palauttaa mapin esiintymistä {"foo" 1, "bar" 4}.
      (re-seq #"\w+" (slurp %))) ; Lukee tiedoston ja luo sekvenssin sanoista.
    files))                      ; Lista tiedostoista.

ponzao

(deftest div-has-content-foo? 
  (is 
    (= (html [:div "foo"])
       "<div>foo</div>")))

ponzao

function dispatch(t)
  return function(k)
           if t[k] then t[k]() end
         end
end

local dispatcher = dispatch({ f = function()
                                    print("f")
                                  end,
                              g = function()

ponzao

(def person {:name "Vesa Marttila"
             :address {:street "Pursimiehenkatu 21"}})

(update-in person
           [:address]
           merge {:postal-code "00150" :city "Helsinki"})
; -> {:name "Vesa Marttila", :address {:city "Helsinki", :postal-code "00150", :street "Pursimiehenkatu 13"}}

ponzao

(-> (query #(SQLQueryImpl.
               connection
               (Configuration. templates)
               %))
    (from :actors)
    (where (equal? :name "George Clooney")
           (equal? :age  49))
    (list :name :age))))))

ponzao

type ID = Long
type Code = String

class User(val id: ID,
           val name: String,
           val friends: List[User])

class UserDto(val code: Code,
              val name: String,
              val friends: List[UserDto]) {

ponzao

(ns rss-reader
  (:import [java.io FileReader
                    BufferedReader])
  (:require [clojure.xml :as xml]
            [clojure.zip :as zip])
  (:use [clojure.contrib.zip-filter.xml]
        [hiccup.core]))

(defn print-feeds [feeds]
  (doseq [[channel articles] feeds]

ponzao

import scala.collection.mutable.MultiMap
import java.net.URLEncoder
import scala.collection.mutable.{Set => MSet, HashMap, MultiMap}

class LinkBuilder(path: String) {
  val attributes = new HashMap[String, MSet[String]] with MultiMap[String, String] 
  
  override def toString(): String 
    = path +
      "?"  +

ponzao

(use '[clojure.string :only (join)])
(import java.net.URLEncoder)

(defn link-builder [path] {:path       path
                           :attributes {}})

(defn add [lb k v]
  (when v
    (update-in lb [:attributes k] concat #{v})))
 

ponzao

(defn index-of-any [coll pred]
  (loop [index 0
         items coll]
    (when (not (empty? items))
      (if (pred (first items))
        index
        (recur (inc index) (rest items))))))

(index-of-any "foobar" #{\c \d \b}) ; -> 3