1
2
3
4
5
6
7
8
(
defun cont (lista)
(
if (equal lista nil)
  0
(
    + 1 (cont (cdr lista)) 
)
 ...

1
(+ 2 3)

1
10

1
()()()()()

1
2
3
4
5
6
7
8
9
import java.util.*;
import java.lang.*;
 
class Main
{
        public static void main (String[] args) throws java.lang.Exception
        {
                String abcv = "ABCV";
                String abc = "ABC";
 ...

1
2
3
4
5
6
7
8
9
(defparameter *yo* (loop for x from 1 to 100
                      collect (loop for y from 1 to 100
                                 collect (- (random 1000) 500))))
 
(defun mazafake (*yo*)
  (let ((m nil)
        (yot (apply #'mapcar #'list *yo*)))
    (loop for x from 0 to (1- (length *yo*))
       do (loop for y from 0 to (1- (length yot))
 ...

1
2
3
4
5
6
7
8
9
(defparameter *yo* (loop for x from 1 to 100
                      collect (loop for y from 1 to 100
                                 collect (- (random 1000) 500))))
 
(defun mazafake (*yo*)
  (let ((m nil)
        (yot (apply #'mapcar #'list *yo*)))
    (loop for x from 0 to (1- (length *yo*))
       do (loop for y from 0 to (1- (length yot))
 ...

1
2
3
4
5
6
7
8
9
(require 'alexandria)
 
(defparameter *yo* (loop for x from 1 to 10
                      collect (loop for y from 1 to 10
                                 collect (random 1000))))
 
(let ((m nil)
      (yot (apply #'mapcar #'list *yo*)))
  (loop for x from 0 to 9
 ...

1
2
3
4
5
6
7
8
#!/usr/bin/perl
 
use strict;
use warnings;
 
use integer;
 
=head1 DESCRIPTION
 ...

1
(format (map 'list (lambda (x) (+ 1 x)) '(1 2 3)))

1
(map 'list (lambda (x) (+ 1 x)) '(1 2 3))

1
(mapcar (lambda (l) (map 'list #'+ l)) '((1 2 3) (10 20 30) (100 200 300)))

1
(mapcar (lambda (l) (map nil #'+ l)) '((1 2 3) (10 20 30) (100 200 300)))

1
(mapcar (lambda (l) (map #'+ l)) '((1 2 3) (10 20 30) (100 200 300)))

1
2
3
4
5
6
7
8
9
                        
                                 
                          
                         
                 
             
                           
                          
                                 
 ...

1
2
3
(defvar a)
(setf a 5)
>`(/a)

1
2
3
(defvar a)
setf(a 5)
>`(/a)

1
2
3
defvar(a)
setf(a 5)
>`(/a)

1
2
setf(a 5)
>`(/a)

1
2
a = 5
>`(/a)

1
>`(1-a)

1
(+ 5 6)

1
2
3
4
5
6
7
8
9
{
 
        (((
 
 
                ))
 
)
}

1
(let ((value ())) (print value))

1
2
3
4
5
 
(loop
   with pairs = (first (argv))
   for x in  (car (argv)) do
     (print x))

1
2
3
4
5
 
(loop
   with pairs = (first sb-ext:*posix-argv*)
   for x in  sb-ext:*posix-argv* do
     (print x))

1
2
3
4
5
(defun RMV (&rest lst &key (key nil has-key-p) (test nil has-test-p)
        nil)
 
(RMV '(a b c))
 

1
2
3
4
5
6
7
8
9
( copy input to output until specified number is found )
( a buffer for input line )
create linebuf 80 chars allot
 
: copyloop
 
begin
  linebuf 78 accept ( - chars )
  dup 0 > if ( - chars )
 ...

1
2
3
4
5
6
7
8
9
import java.io.*;
import java.util.Scanner;
import java.util.Random;
 class tictactoe
{
 static void main(String[] args)
{
Scanner keyboard=new Scanner(System.in);
String[][] board= {{" "," "," "},{" "," "," "},{" "," "," "}};
 ...

1
2
3
4
5
6
7
8
9
;; This function takes a non-negative integer and returns an integer.
(defun f (x)
  (cond ((atom x) (f (list x 1 0)))
        (t
          (let ((n (car x)) (a (cadr x)) (b (caddr x))) 
            (cond ((<= n 0) b)
                  (t (f (list (- n 1) b (+ a b)))))))))
 
;; User interface
 ...