1
2
3
4
5
6
7
8
9
#include "stdio.h"
 
int main()
{
       // rea de rectangulo 
       
       int c; // contador
       
       for (c =1; c <= 50; c++
 ...

1
2
3
4
5
6
7
8
9
#include "stdio.h"
 
int main()
{
       // rea de rectangulo 
       
       int c; // contador
       
       for (c =1; c <= 50; c++
 ...

1
2
3
4
5
6
7
8
9
#include "stdio.h"
 
int main()
{
       // area de rectangulo 
       float b , h, area; // base, altura, area
       
       scanf("%f %f", &b, &h);
       
 ...

1
2
3
4
5
6
7
8
9
#include "stdio.h"
 
int main()
{
       // area de rectangulo 
       float b , h, area; // base, altura, area
       
       scanf("%f %f", &b, &h);
       
 ...

1
2
3
4
5
6
7
8
9
#include "stdio.h"
 
int main()
{
       // area de rectangulo 
       float b , h, area; // base, altura, area
       
       scanf("%f %f", &b, &h);
       
 ...

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
int main()
{
char usu[30]; // usurario
 
printf ("Teclea nombre y ENTER: ") ;
gets (usu) ;
 
printf("Hola, %s.", usu);
return 0;

1
2
3
4
5
6
7
8
9
int main()
{
char usu[30]; // usurario
 
printf ("Teclea nombre y ENTER: ") ;
gets (usu) ;
 
printf("Hola, %s.", usu);
return 0;

1
2
(def count-if (comp count filter))
(println (count-if #(> % 7) [3 89 1 34]))

1
2
(def countIf (comp size filter))
(println (countIf #(> % 7) [3 89 1 34]))

1
2
(def countIf (comp length filter))
(println (countIf #(> % 7) [3 89 1 34]))

1
2
3
4
5
6
7
8
9
(defn n-digits [digits]
        (let
                [low (nth (iterate (partial * 10) 1) (dec digits))
                high (dec (nth (iterate (partial * 10) 1) digits))]
                (vector low high)))
                        
(defn n-digit-products [digits]
        (let [[low high] (n-digits digits)]
                (distinct
 ...

1
2
3
4
5
6
7
8
9
(defn n-digits [digits]
        (let
                [low (nth (iterate (partial * 10) 1) (dec digits))
                high (dec (nth (iterate (partial * 10) 1) digits))]
                (vector low high)))
                        
(defn n-digit-products [digits]
        (let [[low high] (n-digits digits)]
                (distinct
 ...

1
2
3
4
5
6
7
8
9
(defn n-digits [digits]
        (let
                [low (nth (iterate (partial * 10) 1) (dec digits))
                high (dec (nth (iterate (partial * 10) 1) digits))]
                (vector low high)))
                        
(defn n-digit-products [digits]
        (let [[low high] (n-digits digits)]
                (distinct
 ...

1
2
3
4
5
6
7
8
9
(defn n-digits [digits]
        (let
                [low (nth (iterate (partial * 10) 1) (dec digits))
                high (dec (nth (iterate (partial * 10) 1) digits))]
                (vector low high)))
                        
(defn n-digit-products [digits]
        (let [[low high] (n-digits digits)]
                (distinct
 ...

1
2
3
4
5
6
7
8
9
(defn n-digits [digits]
        (let
                [low (nth (iterate (partial * 10) 1) (dec digits))
                high (dec (nth (iterate (partial * 10) 1) digits))]
                (vector low high)))
                        
(defn n-digit-products [digits]
        (let [[low high] (n-digits digits)]
                (distinct
 ...

1
(+ 1 2)

1
2
3
4
5
6
7
8
9
(defn n-digits [digits]
        (let
                [low (nth (iterate (partial * 10) 1) (dec digits))
                high (dec (nth (iterate (partial * 10) 1) digits))]
                (vector low high)))
                        
(defn n-digit-products [digits]
        (let [[low high] (n-digits digits)]
                (distinct
 ...

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 calculate-pi
 
  ([iter-left] (calculate-pi iter-left 3 4 1))
 
  ([iter-left denumerator cur-val iter]
 
   (print iter)
   (print ": ") 
   (println (double cur-val))
 ...

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
(def foo (transient {}))
(assoc! foo "foo" "bar")
(print (get foo "foo"))

1
2
(def foo (transient {}))
(assoc! foo "foo" "bar")

1
(println "Hello!")

1
2
3
(ns Tst)
(defn clos [x] #(* x %))
(println ((clos 4) 3))

1
2
3
4
5
6
(defn fib [n]
  (let [gen-fib (fn [xs] (conj xs (apply + (take 2 (reverse xs)))))
        fib-list (iterate gen-fib [1 1])]
    (last (take (dec n) fib-list))))
 
(println (fib 6))

1
2
3
4
5
6
(defn fib [n]
  (let [gen-fib (fn [xs] (conj xs (apply + (take 2 (reverse xs)))))
        fib-list (iterate gen-fib [1 1])]
    (last (take (dec n) fib-list))))
 
(fib 6)