1
2
3
4
5
6
7
8
9
(defn my-freq
        "Takes a sequence and returns a map with the frequency
         of the elements within the sequence"
        [s]
        (reduce
                let(
                        [z (%1 %2)]
                        #(assoc z (inc z))
                        {}
 ...

1
2
3
4
5
6
7
8
9
(defn my-freq
        "Takes a sequence and returns a map with the frequency
         of the elements within the sequence"
        [s]
        (reduce
                let(
                        [z (%1 %2)]
                        #(assoc z (inc z))
                        {}
 ...

1
2
3
4
5
6
7
8
9
(defn my-freq
        "Takes a sequence and returns a map with the frequency
         of the elements within the sequence"
        [s]
        (reduce
                #(assoc (%1 %2) (inc (%1 %2)))
                {}
                s))
(my-freq "abbcccdddd")

1
2
3
(map
        #(+ %1 %2)
        [1 2 3 4 5])

1
(find-doc "lazy")

1
2
3
4
(try
        (/ 1 0) 
        (catch Exception e (println "I caught it")) 
        (finally (println "Finally!!")))

1
2
3
4
5
6
7
8
9
;;-----------------------------
(def reversed (vec (reverse array)))  ; remove vec call if sequence result OK
;;-----------------------------
(loop [i (dec (count ARRAY))]
  (when (>= i 0)
    ;; do something with (ARRAY i)
    (recur (dec i))))
 
;; alternate version
 ...

1
 (println "Ghena")

1
2
3
4
5
6
7
8
9
        --Chapter 2 - Programming Exercise 2--
with Ada.Text_IO;
use Ada.Text_IO;
procedure Ug_1 is 
begin 
   Put("Good form"); 
   Put("can aid in");
   Put("Understanding a program");
   New_Line;
 ...

1
2
3
4
5
6
7
8
9
(defn bottles [n & [capitalize]]
  (str (if (> n 0) n (if capitalize "No more" "no more"))
    " bottle" (if (= 1 n) "" "s") " of beer" ))
 
(defn bot-wall [n & cap] (str (bottles n cap) " on the wall"))
 
(defn sing
  ;  Default is 99 times.
  ([]  (sing 99))
 ...

1
2
3
4
5
my$x35 =chr(176)."55".chr(46);my$x34 ;$x35=$x35."0\x363
E \t1;\10". 1 % 2 .chr(176/1) ."3\x34."; $x34=36 ;print
"\x4E\11\x350" .$x35."1".$x34% 32 ."\x38\nH@". chr (80)
.";\10Py "."c\x41c".chr ($x34*2 ) ."!Ng! :\x29 \n\7" ;;
 

1
2
3
4
5
6
7
8
9
(defn bottles [n & [capitalize]]
  (str (if (> n 0) n (if capitalize "No more" "no more"))
    " bottle" (if (= 1 n) "" "s") " of beer" ))
 
(defn bot-wall [n & cap] (str (bottles n cap) " on the wall"))
 
(defn sing
  ;  Default is 99 times.
  ([]  (sing 99))
 ...

1
2
3
4
5
6
7
8
9
(defn bottles [n & [capitalize]]
  (str (if (> n 0) n (if capitalize "No more" "no more"))
    " bottle" (if (= 1 n) "" "s") " of beer" ))
 
(defn bot-wall [n & cap] (str (bottles n cap) " on the wall"))
 
(defn sing
  ;  Default is 99 times.
  ([]  (sing 99))
 ...

1
2
(defn mod3or5? [x] (or (== (mod x 3) 0) (== (mod x 5) 0)))
(println (reduce + (filter mod3or5? (range 1000))))

1
2
(defn mod3or5? [x] (or (== mod 3 0) (== mod 5 0)))
(println (reduce + (filter mod3or5? (range 1000))))

1
2
(defn mod3or5? [x] (or (== mod 3 0) (== mod 5 0)))
(filter mod3or5? (range 1000))

1
(println "Hello, Nor!")

1
2
3
4
(defn hello []
  (printf "%s" (str "Hello Nor!")))
 
(hello)

1
2
(def hello (fn [] "Hello world"))
(hello)

1
2
3
4
5
6
7
8
9
(defn bottles [n & [capitalize]]
  (str (if (> n 0) n (if capitalize "No more" "no more"))
    " bottle" (if (= 1 n) "" "s") " of beer" ))
 
(defn bot-wall [n & cap] (str (bottles n cap) " on the wall"))
 
(defn sing
  ;  Default is 99 times.
  ([]  (sing 99))
 ...

1
:keyword

1
2
3
4
5
6
7
8
9
(defn bottles [n & [capitalize]]
  (str (if (> n 0) n (if capitalize "No more" "no more"))
    " bottle" (if (= 1 n) "" "s") " of beer" ))
 
(defn bot-wall [n & cap] (str (bottles n cap) " on the wall"))
 
(defn sing
  ;  Default is 99 times.
  ([]  (sing 99))
 ...

1
2
(defn pha [] sun)
((pha))

1
2
3
4
5
6
7
8
9
(defn bottles [n & [capitalize]]
  (str (if (> n 0) n (if capitalize "No more" "no more"))
    " bottle" (if (= 1 n) "" "s") " of beer" ))
 
(defn bot-wall [n & cap] (str (bottles n cap) " on the wall"))
 
(defn sing
  ;  Default is 99 times.
  ([]  (sing 99))
 ...

1
2
3
4
5
6
7
8
9
(defn +v [o f]
  (let [k :vs
        ovs (k (meta o))
        vs (if (nil? ovs) (list f) (conj f ovs))]
    (with-meta o (assoc (meta o) k vs))))
 
(defn !v [o]
  (every? 
    (fn [f] (apply f [o]))
 ...

1
2
3
4
5
6
7
8
9
(defn +v [o f]
  (let [k :vs
        ovs (k (meta o))
        vs (if (nil? ovs) (list f) (conj f ovs))]
    (with-meta o (assoc (meta o) k vs))))
 
(defn !v [o]
  (every? 
    (fn [f] (apply f [o]))
 ...

1
2
3
4
5
6
7
8
9
(defn +v [o f]
  (let [k :vs
        ovs (k (meta o))
        vs (if (nil? ovs) (list f) (conj f ovs))]
    (with-meta o (assoc (meta o) k vs))))
 
(defn !v [o]
  (every? 
    (fn [f] (apply f [o]))
 ...

1
2
3
4
5
6
7
8
(ns my-namespace
  (:require clojure.walk))
  
(defn +v [o f]
  (let [k :vs
        ovs (k (meta o))
        vs (if (nil? ovs) (list f) (conj f ovs))]
    (with-meta o (assoc (meta o) k vs))))
 ...

1
2
3
4
5
6
7
8
(ns my-namespace
  (:require clojure.walk :as walk))
  
(defn +v [o f]
  (let [k :vs
        ovs (k (meta o))
        vs (if (nil? ovs) (list f) (conj f ovs))]
    (with-meta o (assoc (meta o) k vs))))
 ...

1
2
3
4
5
6
7
8
(ns my-namespace
  (:require clojure.walk :as walk))
  
(defn +v [o f]
  (let [k :vs
        ovs (k (meta o))
        vs (if (nil? ovs) (list f) (conj f ovs))]
    (with-meta o (assoc (meta o) k vs))))
 ...