jdoig

module Tools
open System
 
let sqr x = float(x * x) (* Square two ints into a float *)
 
(* Remove element where predicate *)
let rec remove l predicate =  
    match l with
    | [] -> []
    | hd::tl -> if predicate(hd) then

jdoig

#light
open SdlDotNet.Core;
open SdlDotNet.Graphics;
open SdlDotNet.Graphics.Sprites;
open SdlDotNet.Input;
open System.Drawing;
open System;
 
type StuperGario = class
    val mutable location : Point

jdoig

(ns webapp.routes
    (:use   compojure.core
            hiccup.core)
    (:require	[clj-http.client :as client]
                [compojure.route :as route]
                [clj-json.core :as json]))

;Make everything £40 for simplicity
(defn calculate-price [vehicle]
    (assoc vehicle :price-per-day 40))