I did also post a an improved version on f055.net comments weighing in at 117 chars…. http://f055.net/article/the-140-character-webapp-challenge/P50/

Here it is to save wading thru comments….

use Continuity;Continuity->new->loop;sub main{while(){$m+=$_[0]->print("$m<form><input name=m>")->next->param(‘m’)}}

BTW… I assume your code got mangled a bit when posted because its missing “form input” part and the while loop doesn’t quite work. But yes it does show yet another way to write this number counter webapp in under 140 chars using Perl/Continuity. Thats three at last count

/I3az/

I think you could shave 3 more characters by rewriting the while loop (this is untested):

use Continuity;Continuity->new->loop;sub main{($r)=@_;$r->print(”),$r->next,$x+=$r->param(‘m’),$r->print($x)while1}

Also, thanks for the intro to Continuity and Squatting. They both look very interesting.

And well done to yourself for an inspired challenge & blog post.

I’ve tweeted the Continuity web app…..

http://twitter.com/draegtun/statuses/1240532503

… it looks a bit like a work of art now

chars Barry