This tentative tcllib module contains code to win 
decisively any programming language shootout that
aims for unreadable compact code.
i.e. the notorious class of 1 Liners


 # 1liners.tcl
 #  $Id: 17768,v 1.9 2007-03-02 19:00:45 jcw Exp $
 # cprt: comp.lang.tcl.*
 # what: provide bragging tools for language shootouts.
 # what: 42
 # what: 
 
 # [http://groups.google.com/group/comp.lang.tcl/browse_frm/thread/facf8c58a9c7ab3]
 proc 42 {} {
     while {[gets stdin l]+1} {if {[append ($l) 1]==1} {puts $l}}
 }
 
 package provide 1liners 0.1
 # end


 # example:
 package require 1liners
 42
 # end


[UK]: To make it clear, this is purely experimental code, for 
use during daring participations in language shootouts ;-)

[RS] fixed ''append $(l)'' to be ''append ($l)'' - what good is packaging if the contents aren't tested?

[VK] 02-mar-2007 unfortunately Tcl do not allow one-liners at all, in the sence that one could write small program directly from command line, like this one (word counter throughout entire file):
  perl -w0777ne 'print scalar @{[/(\w+)/g]}' textfile
Many languages do allow this (even lisp)

I fail to see why above example with its '''42''' procedure helps with one-liner anyhow.


[UK]: Humor, it is a difficult concept. Read the google thread [http://groups.google.com/group/comp.lang.tcl/browse_frm/thread/facf8c58a9c7ab3] and my posting on c.l.t:[http://groups.google.com/group/comp.lang.tcl/msg/7052b19f5828051a]

----
[[
[Category Package] , a tentative part of [Tcllib] |
[Category Bragging Tools] [Category Humor]
]]