1
2
3
4
5
6
7
8
9
(println "Hello World")
 
(print "Hello World")
 
(prn "Hello World")
 
(pr "Hello World")
 
(.. System out (println "Hello World"))
 ...

1
2
3
4
5
6
7
8
9
(println "Hello World")
 
(print "Hello World")
 
(prn "Hello World")
 
(pr "Hello World")
 
(.. System out (println "Hello World"))
 ...

1
2
3
4
5
6
7
(def x 6)
-> #'user/x
(def y 36)
-> #'user/y
(+ x y)
-> 42
 

1
2
3
4
5
6
7
8
9
(println "Hello World")
 
(print "Hello World")
 
(prn "Hello World")
 
(pr "Hello World")
 
(.. System out (println "Hello World"))
 ...

1
2
3
4
5
6
7
8
9
(println "Hello World")
 
(print "Hello World")
 
(prn "Hello World")
 
(pr "Hello World")
 
(.. System out (println "Hello World"))
 ...

1
2
3
4
5
6
7
8
9
(println "Hello World")
 
(print "Hello World")
 
(prn "Hello World")
 
(pr "Hello World")
 
(.. System out (println "Hello World"))
 ...

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
(cons 1 [2 3])

1
2
3
4
5
6
7
8
9
// ideone.com/
#include <iostream>
using namespace std;
 
int main () { 
    int tmin, plan, pb=10000, pi=15000, pp=30000;
    double dcto, total, totalxc;
    cout << "Ingrese Su Tipo De Plan --> 1= Plan Basico, 2= Plan Ideal, 3= Plan Plus: ";
    cin >> plan;
 ...

1
2
3
4
5
6
7
8
9
// ideone.com/
#include <iostream>
using namespace std;
 
int main () { 
    int tmin, plan, pb=10000, pi=15000, pp=30000;
    double dcto, total, totalxc;
    cout << "Ingrese Su Tipo De Plan --> 1= Plan Basico, 2= Plan Ideal, 3= Plan Plus: ";
    cin >> plan;
 ...

1
2
3
4
5
6
7
8
9
// ideone.com/
#include <iostream>
using namespace std;
 
int main () { 
    int tmin, plan, pb=10000, pi=15000, pp=30000;
    double dcto, total, totalxc;
    cout << "Ingrese Su Tipo De Plan --> 1= Plan Basico, 2= Plan Ideal, 3= Plan Plus: ";
    cin >> plan;
 ...

1
((fn [x] (inc x)) 1)

1
(print (/ -1 3))

1
2
3
4
5
6
Var k,m,n:integer;
    A,b,c:real;
Procedure p(i:integer; var j:integer; x:real; var y:real);
Begin
{......}
End.

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 sieve [n]
  (let [n (int n)]
    "Returns a list of all primes from 2 to n"
    (let [root (int (Math/round (Math/floor (Math/sqrt n))))]
      (loop [i (int 3)
             a (int-array n)
             result (list 2)]
        (if (>= i n)
          (reverse result)
 ...

1
2
3
4
5
6
7
8
9
(defn sieve [n]
  (let [n (int n)]
    "Returns a list of all primes from 2 to n"
    (let [root (int (Math/round (Math/floor (Math/sqrt n))))]
      (loop [i (int 3)
             a (int-array n)
             result (list 2)]
        (if (>= i n)
          (reverse result)
 ...

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
(eval((fn[program](let [n (zipmap '(+ - > < . ?)(repeatedly gensym))](letfn[(f*[
s] (if (vector? s) `(while (not (~(n '?))) ~@(map f* s)) `(~(n s))))]`(let [t# (
int-array 100 0)pt# (atom 0)a#(fn[c#]#(aset t# @pt#(c# (aget t# @pt#))))b#(fn[d#
]#(swap! pt# d#)) ~(vec (map n '(+ - > <)))(map #(%1 %2)[a# a# b# b#](cycle [inc
dec]))~(n '.)#(print(char(aget t# @pt#)))~(n '?)#(zero?(aget t# @pt#))]~@(map f*
(read-string(str "("(->> program (interpose \space) (apply str)) ")" )))))))"+++
+++++[>++++++++<-]>+.[>+<-]+++++[>-----<-]>--------.[>+<-]++++++++[>++++++++<-]>
++++++++++++.+++.+++++.[>+<-]+++++++++[>---------<-]>---.[>+<-]++++++++[>+++++++
+<-]>+++++++++++++++.---------.[>+<-]++++++++[>--------<-]>------.[>+<-]++++++++
 ...

1
2
3
4
5
6
7
8
9
;;; 99 bottles of beer in Clojure
 
(def bottles "
# 99 Bottles of Beer
# Brainfuck version
# by Michal Wojciech Tarnowski
 
 
                +>+++++++[>>>+++
 ...

1
2
3
4
5
6
7
8
9
(eval((fn[program] (let [n (zipmap '(+ - > < . ?
)(repeatedly gensym))](letfn[(f* [s](if (vector?
s)`(while (not (~(n '?))) ~@(map f* s))`(~(n s))
))]`(let[t#(int-array 100 0)pt# (atom 0)a#(fn[c#
]#(aset t# @pt# (c# (aget t# @pt#))))b#(fn[d#]#(
swap! pt# d#))~(vec(map n '(+ - > <))) (map #(%1
%2) [a# a# b# b#] (cycle [inc dec]))  ~(n '.) #(
print (char (aget t# @pt#)))~(n '?)#(zero? (aget
t# @pt#)) ] ~@(map f* (read-string (str "(" (->>
 ...

1
2
3
4
5
6
7
8
9
(eval((fn[program] (let [n (zipmap '(+ - > < . ?
)(repeatedly gensym))](letfn[(f* [s](if (vector?
s)`(while (not (~(n '?))) ~@(map f* s))`(~(n s))
))]`(let[t#(int-array 100 0)pt# (atom 0)a#(fn[c#
]#(aset t# @pt# (c# (aget t# @pt#))))b#(fn[d#]#(
swap! pt# d#))~(vec(map n '(+ - > <))) (map #(%1
%2) [a# a# b# b#] (cycle [inc dec]))  ~(n '.) #(
print (char (aget t# @pt#)))~(n '?)#(zero? (aget
t# @pt#)) ] ~@(map f* (read-string (str "(" (->>
 ...

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
(def hello (fn [] "Hello"))
(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
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);
       
 ...