1
2
3
4
5
6
set uid [string range [format %04x [clock clicks]] 0 3]
        append uid [string range [format %04x [clock clicks]] 2 5]
        append uid [string range [format %04x [clock clicks]] end-3 end]
puts $uid
 
 

1
2
3
4
5
6
set uid [string range [format %04x [clock clicks]] 0 3]
        append uid [string range [format %04x [clock clicks]] 2 5]
        append uid [string range [format %04x [clock clicks]] end-3 end]
puts uid
 
 

1
puts [string range [format %04x [clock clicks]] end-3 end]

1
puts [format %04x [clock clicks]]end-3 end]

1
puts [format %04x [clock clicks]]

1
puts [format %04x [clock clicks]

1
2
3
4
5
6
7
8
9
sorcierfxk@odbx:~/Bureau/experimental/ProxyHTTPServer/src$ python ProxyHTTPServer.py 
Serving HTTP on 0.0.0.0 port 8000 ...
testing url http://login.live.com/login.srf?wa=wsignin1.0&rpsnv=11&ct=1272368765&rver=6.0.5276.0&wp=MCLBI&wlcxt=msdn%24msdn%24msdn&wreply=http:%2F%2Fmsdn.microsoft.com%2Ffr-fr%2Fdefault.aspx&lc=1036&id=254354
WARNING MSDN LOGIN DETECTED !!!
Redirected to http://192.168.2.220/index.html
localhost - - [27/Apr/2010 22:04:35] "GET http://login.live.com/login.srf?wa=wsignin1.0&rpsnv=11&ct=1272368765&rver=6.0.5276.0&wp=MCLBI&wlcxt=msdn%24msdn%24msdn&wreply=http:%2F%2Fmsdn.microsoft.com%2Ffr-fr%2Fdefault.aspx&lc=1036&id=254354 HTTP/1.1" 404 -
testing url http://login.live.com/CSS/WEBBlue1033.css?x=1
testing url http://login.live.com/images/WLIDLogo.gif
localhost - - [27/Apr/2010 22:04:36] "GET http://login.live.com/images/WLIDLogo.gif HTTP/1.1" 200 -

1
2
set liczba [gets stdin]
while { $liczba != 42 } { puts $liczba; set liczba [gets stdin] }

1
2
3
4
set x 12;
set y 13;
set z [expr $x + $y];
puts $z;

1
2
3
4
set x 12;
set y 13;
set z [expr [$x + $y]];
puts $z;

1
2
3
4
set x 12;
set y 13;
set z [expr $x + $y];
echo $z;

1
2
3
4
set x 12;
set y 13;
set z [expr [$x + $y]];
echo $z;

1
2
3
4
5
6
7
8
9
# This RE is just a character class for almost everything "bad"
set RE {[][{};#\\\$ \r\t\u0080-\uffff]}
set string "11for"
 
# We will substitute with a fragment of Tcl script in brackets
set substitution {[format \\\\u%04x [scan "\\&" %c]]}
 
# Now we apply the substitution to get a subst-string that
# will perform the computational parts of the conversion. Note
 ...

1
2
3
4
5
6
7
8
9
# This RE is just a character class for almost everything "bad"
set RE {[][{};#\\\$ \r\t\u0080-\uffff]}
set string "11\\"
 
# We will substitute with a fragment of Tcl script in brackets
set substitution {[format \\\\u%04x [scan "\\&" %c]]}
 
# Now we apply the substitution to get a subst-string that
# will perform the computational parts of the conversion. Note
 ...

1
2
3
4
5
6
7
8
9
# This RE is just a character class for almost everything "bad"
set RE {[][{};#\\\$ \r\t\u0080-\uffff]}
set string "11"
 
# We will substitute with a fragment of Tcl script in brackets
set substitution {[format \\\\u%04x [scan "\\&" %c]]}
 
# Now we apply the substitution to get a subst-string that
# will perform the computational parts of the conversion. Note
 ...

1
2
3
4
5
6
7
8
9
# This RE is just a character class for almost everything "bad"
set RE {[][{};#\\\$ \r\t\u0080-\uffff]}
set string ""
 
# We will substitute with a fragment of Tcl script in brackets
set substitution {[format \\\\u%04x [scan "\\&" %c]]}
 
# Now we apply the substitution to get a subst-string that
# will perform the computational parts of the conversion. Note
 ...

1
2
3
4
5
6
7
8
9
int lim = 0x12345678; int pp = 256;
for (int i = 1; (lim-pp) / ((64 + i) + pp) != 0; i++) {
    if (atan(i - ((i / lim) * lim)) > 1.55) // > ~50
        lim = (lim / 50) * 40;
    int foo = lim; // bar
    for (int j = 0; j < 0x123456; j++)
        foo ^= (j >> 3) | (j << 29); // tidy
    pp &= foo; // in 42-0
    if (lim - ((lim / i) * i) == 0) {
 ...

1
2
3
4
5
6
7
8
9
# This RE is just a character class for almost everything "bad"
set RE {[][{};#\\\$ \r\t\u0080-\uffff]}
set string ""
 
# We will substitute with a fragment of Tcl script in brackets
set substitution {[format \\\\u%04x [scan "\\&" %c]]}
 
# Now we apply the substitution to get a subst-string that
# will perform the computational parts of the conversion. Note
 ...

1
2
3
4
5
6
7
8
9
# This RE is just a character class for almost everything "bad"
set RE {[][{};#\\\$ \r\t\u0080-\uffff]}
set string ""
 
# We will substitute with a fragment of Tcl script in brackets
set substitution {[format \\\\u%04x [scan "\\&" %c]]}
 
# Now we apply the substitution to get a subst-string that
# will perform the computational parts of the conversion. Note
 ...

1
2
3
4
5
6
7
8
9
# This RE is just a character class for almost everything "bad"
set RE {[][{};#\\\$ \r\t\u0080-\uffff]}
set string ""
 
# We will substitute with a fragment of Tcl script in brackets
set substitution {[format \\\\u%04x [scan "\\&" %c]]}
 
# Now we apply the substitution to get a subst-string that
# will perform the computational parts of the conversion. Note
 ...

1
2
3
4
5
6
7
8
9
# This RE is just a character class for almost everything "bad"
set RE {[][{};#\\\$ \r\t\u0080-\uffff]}
 
# We will substitute with a fragment of Tcl script in brackets
set substitution {[format \\\\u%04x [scan "\\&" %c]]}
 
# Now we apply the substitution to get a subst-string that
# will perform the computational parts of the conversion. Note
# that newline is handled specially through string map since
 ...

1
2
3
4
5
6
7
8
9
# This RE is just a character class for almost everything "bad"
set RE {[][{};#\\\$ \r\t\u0080-\uffff]}
 
# We will substitute with a fragment of Tcl script in brackets
set substitution {[format \\\\u%04x [scan "\\&" %c]]}
 
# Now we apply the substitution to get a subst-string that
# will perform the computational parts of the conversion. Note
# that newline is handled specially through string map since
 ...

1
2
3
4
5
6
7
8
9
# This RE is just a character class for almost everything "bad"
set RE {[][{};#\\\$ \r\t\u0080-\uffff]}
 
# We will substitute with a fragment of Tcl script in brackets
set substitution {[format \\\\u%04x [scan "\\&" %c]]}
 
# Now we apply the substitution to get a subst-string that
# will perform the computational parts of the conversion. Note
# that newline is handled specially through string map since
 ...

1
2
set liczba [gets stdin]
while { $liczba != 42 } { puts $liczba; set liczba [gets stdin] }

1
2
3
4
5
6
7
8
9
int lim = 0x12345678; int pp = 256;
for (int i = 1; (lim-pp) / ((64 + i) + pp) != 0; i++) {
    if (atan(i - ((i / lim) * lim)) > 1.55) // > ~50
        lim = (lim / 50) * 40;
    int foo = lim; // bar
    for (int j = 0; j < 0x123456; j++)
        foo ^= (j >> 3) | (j << 29); // tidy
    pp &= foo; // in 42-0
    if (lim - ((lim / i) * i) == 0) {
 ...

1
2
3
4
5
6
7
8
9
(defn fibonacci-seq []
  ((fn rfib [a b] 
      (cons a (lazy-seq (rfib b (+ a b)))))
    0 1))
 
(defn reduced-fib-seq [a]
  (drop 2 (take (+ 2 a) (fibonacci-seq))))
 
(defn satz-von-zeckendorf [coll]
 ...

1
puts "hola miundo"

1
2
3
4
5
6
7
8
9
set a 22,33.555,99.77
set j [string length $a]
set i 0
set k ""
while {$j >= 0} {
 if {[string index $a $i] == [set Dot .]} {
  set Index $i
  set k 1
 }
 ...

1
2
3
4
5
6
7
8
9
set a 22,33.555
set j [string length $a]
set i 0
set k ""
while {$j >= 0} {
 if {[string index $a $i] == [set Dot .]} {
  set Index $i
  set k 1
 }
 ...

1
2
3
4
5
6
7
8
9
set a 22.33.44
set j [string length $a]
set i 0
set k ""
while {$j >= 0} {
 if {[string index $a $i] == [set Dot .]} {
  set Index $i
  set k 1
 }
 ...