Recent public codes are listed below. You can filter them by the following programming languages:
- view
- All
- Ada
- Assembler
- Assembler
- AWK (gawk)
- AWK (mawk)
- Bash
- bc
- Brainf**k
- C
- C#
- C++
- C++0x
- C99 strict
- CLIPS
- Clojure
- COBOL
- COBOL 85
- Common Lisp (clisp)
- D (dmd)
- Erlang
- F#
- Factor
- Falcon
- Forth
- Fortran
- Go
- Groovy
- Haskell
- Icon
- Intercal
- Java
- Java7
- JavaScript (rhino)
- JavaScript (spidermonkey)
- Lua
- Nemerle
- Nice
- Nimrod
- Objective-C
- Ocaml
- Oz
- Pascal (fpc)
- Pascal (gpc)
- Perl
- Perl 6
- PHP
- Pike
- Prolog (gnu)
- Prolog (swi)
- Python
- Python 3
- R
- Ruby
- Scala
- Scheme (guile)
- Smalltalk
- SQL
- Tcl
- Text
- Unlambda
- VB.NET
- Whitespace
-
1 2 3
(defparameter *a* (vector 1 2 3)) (defparameter *b* (vector 1 2 3)) (print (map 'vector #'* *a* *b* ))
-
1
(print (map 'vector #'* #(1 2 3) #(2 2 3) ))
-
35 days 2 hours ago view (lines: 1, size: 44, inputs: 1) Common Lisp (clisp) Runtime error avrdragon
1
(print (map 'vector '#* #(1 2 3) #(2 2 3) ))
-
35 days 2 hours ago view (lines: 3, size: 236, inputs: 1) Common Lisp (clisp) Runtime error avrdragon
1 2 3
(defparameter *ebari* (vector "KOLYA EBET " "PETJA EBET " "VANJA EBET")) (defparameter *babi* (vector "DASHU" "SVETU" "PETUXA")) (print (map 'vector #'concatenate #("KOLYA EBET " "PETJA EBET " "VANJA EBET") #("DASHU" "SVETU" "PETUXA")))
-
1 2 3
(defparameter *ebari* (vector "KOLYA EBET " "PETJA EBET " "VANJA EBET")) (defparameter *babi* (vector "DASHU" "SVETU" "PETUXA")) ;(print (map 'vector #'concatenate #("KOLYA EBET " "PETJA EBET " "VANJA EBET") #("DASHU" "SVETU" "PETUXA")))
-
35 days 2 hours ago view (lines: 3, size: 125, inputs: 1) Common Lisp (clisp) Runtime error avrdragon
1 2 3
(defparameter *ebari* (vector 1 2 3)) (defparameter *babi* (vector 2 2 3)) (print (map 'vector #'concatenate *ebari* *babi*))
-
35 days 2 hours ago view (lines: 3, size: 179, inputs: 1) Common Lisp (clisp) Runtime error avrdragon
1 2 3
(defparameter *ebari* (vector "KOLYA EBET " "PETJA EBET " "VANJA EBET")) (defparameter *babi* (vector "DASHU" "SVETU" "PETUXA")) (print (map 'vector #'concatenate *ebari* *babi*))
-
35 days 2 hours ago view (lines: 3, size: 181, inputs: 1) Common Lisp (clisp) Runtime error avrdragon
1 2 3
(defparameter *ebari* (vector "KOLYA EBET " "PETJA EBET " "VANJA EBET")) (defparameter *babi* (vector "DASHU" "SVETU" "PETUXA")) (print (map 'vector #'concatenate #*ebari* #*babi*))
-
35 days 2 hours ago view (lines: 3, size: 181, inputs: 1) Common Lisp (clisp) Runtime error avrdragon
1 2 3
(defparameter *ebari* (vector "KOLYA EBET " "PETJA EBET " "VANJA EBET")) (defparameter *babi* (vector "DASHU" "SVETU" "PETUXA")) (print (map 'vector #'concatenate #*ebari* #*babi*))
-
35 days 2 hours ago view (lines: 3, size: 181, inputs: 1) Common Lisp (clisp) Runtime error avrdragon
1 2 3
(defparameter *ebari* (vector "KOLYA EBET " "PETJA EBET " "VANJA EBET")) (defparameter *babi* (vector "DASHU" "SVETU" "PETUXA")) (print (map 'vector #'concatenate #*ebari* #*babi*))
-
1 2 3
(defparameter *ebari* (vector "KOLYA EBET " "PETJA EBET " "VANJA EBET")) (defparameter *babi* (vector "DASHU" "SVETU" "PETUXA")) ;(print (map 'vector #'concatenate *ebari* *babi*))
-
1 2 3
(defparameter *ebari* (vector "KOLYA EBET " "PETJA EBET " "VANJA EBET")) ;(defparameter *babi* (vector "DASHU" "SVETU" "PETUXA")) ;(print (map 'vector #'concatenate *ebari* *babi*))
-
1 2 3 4
(print (vector "a" "b")) ;(defparameter *ebari* (vector "KOLYA EBET " "PETJA EBET " "VANJA EBET")) ;(defparameter *babi* (vector "DASHU" "SVETU" "PETUXA")) ;(print (map 'vector #'concatenate *ebari* *babi*))
-
35 days 2 hours ago view (lines: 3, size: 179, inputs: 1) Common Lisp (clisp) Runtime error avrdragon
1 2 3
(defparameter *ebari* (vector "KOLYA EBET " "PETJA EBET " "VANJA EBET")) (defparameter *babi* (vector "DASHU" "SVETU" "PETUXA")) (print (map 'vector #'concatenate *ebari* *babi*))
-
1
(print (map 'vector #'* #(1 2 3 4 5) #(10 9 8 7 6)) )
-
35 days 2 hours ago view (lines: 1, size: 66, inputs: 1) Common Lisp (clisp) Runtime error avrdragon
1
(map 'vector #'* #(1 2 3 4 5) #(10 9 8 7 6)) ==> #(10 18 24 28 30)
-
1 2 3 4 5
(defparameter *v* (vector 1 2 3 4 5)) (print (count-if #'(lambda (x) (> x 3)) *v*))
-
1 2
(defparameter *v* (vector 1 2 3 4 5)) (print (count-if #'oddp *v*))
-
1
(print (count-if #'oddp #(1 2 3 4 5)))
-
1
(print (count-if #'evenp #(1 2 3 4 5)))
-
35 days 2 hours ago view (lines: 1, size: 36, inputs: 1) Common Lisp (clisp) Runtime error avrdragon
1
a = (count-if #'evenp #(1 2 3 4 5))
-
1
(count-if #'evenp #(1 2 3 4 5))
-
1
(print (vector 5))
-
35 days 3 hours ago view (lines: 1, size: 11, inputs: 1) Common Lisp (clisp) Runtime error avrdragon
1
(map 1 2 3)
-
1 2 3 4 5 6 7 8 9
(defun integer-sqrt (num) (if (zerop num) 0 (labels ((next-approx (curr) (truncate (/ (+ curr (truncate (/ num curr))) 2))) (int-sqrt (n n1) (if (>= n1 n) n (int-sqrt n1 (next-approx n1)))))
...
-
1 2 3 4 5 6 7 8
(format t "internal-time-units-per-second: ~A~%" internal-time-units-per-second) (defparameter *start-time* (get-internal-real-time)) (sleep 1) (defparameter *delta-t* (- (get-internal-real-time) *start-time*)) (format t "DELTA T: ~A~%" *delta-t*) (defparameter *delta-t* (* *delta-t* 1.0)) (format t "DELTA T FLOAT: ~A~%" *delta-t*) (format t "KUKAREKU: ~A~%" (/ *delta-t* internal-time-units-per-second))
-
1
(isqrt 26)
-
1 2 3 4 5
(format t "internal-time-units-per-second: ~A~%" internal-time-units-per-second) (defparameter *start-time* (get-internal-real-time)) (sleep 1) (format t "RUNTIME ~A~%" (/ (- (get-internal-real-time) *start-time*) internal-time-units-per-second))
-
1 2 3 4 5
(format t "internal-time-units-per-second: ~A~%" internal-time-units-per-second) (defparameter *start-time* (get-internal-real-time)) (sleep 1) (format t "RUNTIME ~A~%" (- (get-internal-real-time) *start-time*))
-
1 2 3 4 5
(format t "internal-time-units-per-second: " internal-time-units-per-second) (defparameter *start-time* (get-internal-real-time)) (sleep 1) (format t "~A~%" (- (get-internal-real-time) *start-time*))