Help for this page

Select Code to Download

Select or download this

#! perl -slw
use strict;
...

    } until ($n > ($s << ($l - @chars)));
}

Select or download this

17:18 >perl 760_SoPW.pl
ABC---
...

This is perl 5, version 18, subversion 1 (v5.18.1) built for MSWin32-x
+86-multi-thread-64int
...