1
2
3
4
5
6
 
(defn fizzbuzz [n] (cond (= (mod n 15) 0) "FizzBuzz"
              (= (mod n  3) 0) "Fizz"
              (= (mod n  5) 0) "Buzz"
              :else n) )
(println (fizzbuzz (range 1 101) ))

1
2
3
4
5
6
7
 
(println
(fn [n] (cond (= (mod n 15) 0) "FizzBuzz"
              (= (mod n  3) 0) "Fizz"
              (= (mod n  5) 0) "Buzz"
              :else n) )
(range 1 101) )

1
2
3
4
5
6
 
(fn [n] (cond (= (mod n 15) 0) "FizzBuzz"
              (= (mod n  3) 0) "Fizz"
              (= (mod n  5) 0) "Buzz"
              :else n) )
(range 1 101)

1
2
3
4
5
6
7
8
9
begin 644 webutils_pl
M8F5G:6X@-C0T(&EN9F\R+FAT;6P-"DTO(UU8.S900#U&-5(\5D5/.T-40BPR
M6%`H0F!?+T)@0")#4$$Q)%TC-25%,#$R(4@])E5,*"4A-3!$42D-"DTP4F!"
M*S)<3S53+2,K4ETD-20P0#8D030S-%!`+#)84"@E,5(X-EE3.C<Q23M664$[
M(EQ/,3180B)"8$(-"DTZ)S%4/"-(3RM7/5<]4EE7+%)93SQ&/$\U)2A//B9!
M5#LV4%$K5#$T,2)=6#HG,4T[(R1-/2<I03M'+4D-"DT])D5/.T8E3"M&,50Y
M(BA>(D!(0"@B8"DH8$1`(D)@0"A@1$`H8$0I(C!(7#HG,4T[(B%8.S913CQ3
M5$(-"DTZ)S%4/"-(3RM7/5<]4EE7+%)93SQ&/$\L,T19+C)=6#HG,4T[(BA>
M+R9!13@V,%XH(F!`(C!$*2@B8"D-"DTB0U%4.C<Q3#DS62<Y-EU#.#8M2#DR
 ...

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
(prn (+ 1 1))

1
(+ 2 3)

1
(+ 2 3)

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
(defn foo [name]
  (println (str "Hello, " name)))
  
(foo "Jack")

1
2
3
(defn foo [name]
  (println (str "Hello, " name)))
  

1
2
3
(defn foo [name]
  (println (str "Hello, " name)))
  

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

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

1
2
3
4
(try
   (/1 0)
    (catchException &(println "I caught it"))
     (finally (println "Finally!!!")))

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
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
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
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 10 times.
  ([]  (sing 10))
 ...

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 %1 %2 (if (nil? z) 1 (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 %1 %2 (if (nil? z) 1 (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 %1 %2 (if (nil? z) (1) (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 %1 %2 (if (nil? z) (1) (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]
        #(let
                [z (%1 %2)]
                (reduce                
                        #(assoc %1 %2 (if (nil? z) (1) (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]
        (let
                [z (%1 %2)]
                (reduce                
                        #(assoc %1 %2 (if (nil? z) (1) (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
                let(
                        [z (%1 %2)]
                        #(assoc z (inc z))
                        {}
 ...