ponzao

factorial = { 1 }
setmetatable(factorial, { __index = function(table, key)
        table[key] = table[key - 1] * key
        return table[key]
    end, __call = function(table, n)
        for i = 1, n do
            print(table[i])
        end
    end })

ponzao

private ExpectedCondition<Boolean> element(final By findCondition) {
    return new ExpectedCondition<Boolean>() {
        @Override
        public Boolean apply(WebDriver from) {
            RenderedWebElement element = (RenderedWebElement)
                driver.findElement(findCondition);
            return element.isDisplayed();
        }
    };
}

ponzao

(defn char-counter [str]
  (reduce 
    (fn [m c]
      (assoc m c (inc (get m c 0))))
    {}  
    str))

ponzao

val n: Option[Int] = None
val res = n.map(_ + 4).map(_ + 100)
res.getOrElse(0) // => 0

val n: Option[Int] = Some(10)
val res = n.map(_ + 4).map(_ + 100)
res.getOrElse(0) // => 114

ponzao

(letfn [(factorial [n i] 
              (if (> i 1)
                (factorial
                  (* n i)
                  (dec i))
                n))]
  (factorial 1 5))

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))))))