fork(1) download
copy 
  1. set z	0
  2. while {$z<328} {append y [format %c [expr !($z%41%-~($z/41))*(36+2*($z%41))]];incr z}
  3. puts $y
Success #stdin #stdout 0.03s 5272KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
$&(*,.02468:<>@BDFHJLNPRTVXZ\^`bdfhjlnprt$(,048<@DHLPTX\`dhlpt$*06<BHNTZ`flr$,4<DLT\dlt$.8BLV`jt$0<HT`l$2@N\j$4DTdt
https://ideone.com/NuojXr
デスマコロシアム4 Tcl 5656 = 101 x 56
language:
TCL (tcl 8.6)
created:
9 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!