Clojure functions 4

Clojure Example Functions

ilegra - LDC
By Jackson dos Santos

frequencies
user => (frequencies '(1 2 3))
{1 1, 2 1, 3 1}

gensym
user => (gensym "Blastoise")
Blastoise342

user=> (gensym)
G__345

memfn
user=> (map (memfn charAt i) ["fred" "ethel" "lucy"] [1 2 3])
(r h y)
user=>(map #(.charAt %1 %2) ["fred" "ethel" "lucy"] [1 2 3])
(r h y)

bank-transfer
(defn bank-withdraw[bank-account value-to-withdraw]
(dosync
(ref-set bank-account (assoc @bank-account :value (- (get @bank-account :value) value-to-withdraw)))
)
)

(defn bank-deposit [bank-account value-to-deposit]
(dosync
(ref-set bank-account (assoc @bank-account :value (+ (get @bank-account :value) value-to-deposit)))
)

(defn bank-transfer[account-to-debit account-to-credit value]
(bank-deposit account-to-credit value)
(bank-withdraw account-to-debit value)
)

bank-transfer
(deftest test-bank-transfer
(def client1 (ref (struct bank-account "Blastoise" 151)))
(def client2 (ref (struct bank-account "Pikachu" 1500)))
(bank-transfer client2 client1 132.98M)
(is (= 283.98M (get @client1 :value)))
(is (= 1367.02M (get @client2 :value)))
)

Java and Clojure Integration
RT.loadResourceScript("cartax.clj");

Var carType = RT.var("cartax", "car");
return carType.get();

Var structMap = RT.var("clojure.core", "struct-map");
return structMap.invoke(carStruct,
getStructMapKeyVal("owner-name"), ownerName,
getStructMapKeyVal("car-type"), carType,
getStructMapKeyVal("cur-speed"), curSpeed,
getStructMapKeyVal("licence-plate"), licencePlate)

(struct-map car :owner-name “valor” :car-type “valor” :cur-speed valor
:licence-plate “valor”)

try {
Var t = RT.var("cartax", "verify_car_speed");
return t.invoke(carStruct);
} catch (Exception e) {
throw new RuntimeException(e);
}

try {
RT.loadResourceScript("cartax.clj");
Object car = buildCar(getCarReference(), "Jackson", "Fuca", 101,
"AAAA");
Object verifiedCar = verifyCarSpeed(car);
System.out.println(verifiedCar);
} catch (Exception e) {
throw new RuntimeException(e);
}

Clojure functions 4

More Related Content

What's hot (20)

Viewers also liked (7)

Similar to Clojure functions 4 (20)

More from Jackson dos Santos Olveira (20)

Recently uploaded (20)

Clojure functions 4