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
- 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 4 5 6
set a 10; proc ab (aa $a) { set ac $aa; }
-
1 2 3 4 5 6
set a 10; proc ab (aa $a) { puts ax $aa; }
-
1 2 3 4 5 6
set a 10; proc ab (aa $a) { puts $aa; }
-
1 2 3 4 5 6
set a 10; proc ab (aa $a) { puts "a $a"; }
-
1 2 3 4 5 6
set a 10; proc ab (a) { puts "a $a"; }
-
1 2 3 4 5 6 7 8 9
.model small .stack 100h .code mov al,05h mov bl,04h
...
-
1 2 3 4 5 6 7 8
set port_num 30 set addr 0x33 proc abc [port_num $a addr $b] { puts $b puts $a }
-
1 2 3 4 5 6 7 8
set port_num 30 set addr 0x33 proc abc [$port_num $addr] { puts $port_num puts $addr }
-
1 2 3 4 5 6 7 8
set port_num 30 set addr 0x33 proc abc [port_num addr] { puts $port_num puts $addr }
-
1 2 3 4 5 6 7 8
set port_num [list 30 40] set addr [list 0x12 0x33] proc abc [port_num addr] { puts $port_num puts $addr }
-
1 2 3 4 5 6 7 8
set port_num [list 30 40] set addr [list 0x12 0x33] proc abc [$port_num $addr] { puts $port_num puts $addr }
-
1 2 3 4 5 6 7 8
set port_num [list 30 40] set addr [0x12 0x33] proc abc [$port_num $addr] { puts $port_num puts $addr }
-
1 2 3 4 5 6 7
set l [list a bc def 1 23 456] set m 0 foreach i $l { incr m puts "member $m is $i" }
-
1 2 3 4 5 6 7
set l [list a bc def 1 23 456]; set m 0; foreach lst $l { incr m; puts "member $m is $i"; }
-
1 2 3 4 5 6 7
set l [list a bc def 1 23 456] set m 0 foreach i $l { incr m puts "member $m is $i" }
-
1 2 3 4 5
set lt [list a b c]; set m 0; foreach lst $lt{ incr m; puts "list value: $lst";}
-
1 2 3
set lt [list a b c]; foreach lst $lt{ puts "list value: $lst";}
-
1 2 3
set lt [list a b c]; foreach lst $lt puts "list value: $lst";
-
1
puts [split "jahs sdf dfdfs sdfsdfs s sdfsdf" " "]
-
1
split "jahs sdf dfdfs sdfsdfs s sdfsdf" " "
-
1 2 3 4 5
puts [split ":he::o:" ":"] puts [split "::he::o:" ":"] puts [split ":he::o::" ":"]
-
1
split "abc "c"
-
1
[split "abc" "b"]
-
1 2
set liczba [gets stdin] while { $liczba != 42 } { puts $liczba; set liczba [gets stdin] }
-
1 2 3 4 5 6 7 8 9
<?xml version="1.0" ?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"><head> <title>Geocache GC... Für Informatiker - 2</title> </head>
...
-
1
-
1 2 3 4 5 6 7 8 9
bind EVNT - init-server nzb:timer proc nzb:timer {type} { utimer 5 read:new } proc read:new {} { putlog "timer activated" utimer 5 read:new
...
-
1 2
keylset raj name {ram} keylkeys raj
-
1 2 3 4 5 6 7 8 9
proc getTemperature {Rval} { global tempranges;global reslimits global tcoeff1;global tcoeff2;global tcoeff3 global tcoeff4;global tcoeff5;global tcoeff6 for {set count 0} {$count < $tempranges} {incr count} { set lim [lindex $reslimits $count] if {$Rval <= $lim} { switch $count { 0 {set coeff $tcoeff1}
...
-
1
puts [info patchlevel]