From 8a78337ea4dcb0b154bd1c754218ca01c8f9015d Mon Sep 17 00:00:00 2001
From: Paul Buetow #!/usr/bin/perl
+
#!/usr/bin/perl
-# (C) 2006 by Paul C. Buetow
+# (C) 2006 by Paul C. Buetow
-goto library for study $math;
-BEGIN { s/earching/ books/
-and read $them, $at, $the } library:
+goto library for study $math;
+BEGIN { s/earching/ books/
+and read $them, $at, $the } library:
-our $topics, cos and tan,
-require strict; import { of, tied $patience };
+our $topics, cos and tan,
+require strict; import { of, tied $patience };
-do { int'egrate'; sub trade; };
-do { exp'onentize' and abs'olutize' };
-study and study and study and study;
+do { int'egrate'; sub trade; };
+do { exp'onentize' and abs'olutize' };
+study and study and study and study;
-foreach $topic ({of, math}) {
-you, m/ay /go, to, limits }
+foreach $topic ({of, math}) {
+you, m/ay /go, to, limits }
-do { not qw/erk / unless $success
-and m/ove /o;$n and study };
+do { not qw/erk / unless $success
+and m/ove /o;$n and study };
-do { int'egrate'; sub trade; };
-do { exp'onentize' and abs'olutize' };
-study and study and study and study;
+do { int'egrate'; sub trade; };
+do { exp'onentize' and abs'olutize' };
+study and study and study and study;
-grep /all/, exp'onents' and cos'inuses';
-/seek results/ for @all, log'4rithms';
+grep /all/, exp'onents' and cos'inuses';
+/seek results/ for @all, log'4rithms';
-'you' =~ m/ay /go, not home
-unless each %book ne#ars
-$completion;
+'you' =~ m/ay /go, not home
+unless each %book ne#ars
+$completion;
-do { int'egrate'; sub trade; };
-do { exp'onentize' and abs'olutize' };
+do { int'egrate'; sub trade; };
+do { exp'onentize' and abs'olutize' };
-#at
-home: //ig,'nore', time and sleep $very =~ s/tr/on/g;
-__END__
+#at
+home: //ig,'nore', time and sleep $very =~ s/tr/on/g;
+__END__
@@ -106,47 +111,47 @@ __END__
by Lorenzo Bettini
http://www.lorenzobettini.it
http://www.gnu.org/software/src-highlite -->
-#!/usr/bin/perl
+
#!/usr/bin/perl
-# (C) 2006 by Paul C. Buetow
+# (C) 2006 by Paul C. Buetow
-Christmas:{time;#!!!
+Christmas:{time;#!!!
-Children: do tell $wishes;
+Children: do tell $wishes;
-Santa: for $each (@children) {
-BEGIN { read $each, $their, wishes and study them; use Memoize#ing
+Santa: for $each (@children) {
+BEGIN { read $each, $their, wishes and study them; use Memoize#ing
-} use constant gift, 'wrapping';
-package Gifts; pack $each, gift and bless $each and goto deliver
-or do import if not local $available,!!! HO, HO, HO;
+} use constant gift, 'wrapping';
+package Gifts; pack $each, gift and bless $each and goto deliver
+or do import if not local $available,!!! HO, HO, HO;
-redo Santa, pipe $gifts, to_childs;
-redo Santa and do return if last one, is, delivered;
+redo Santa, pipe $gifts, to_childs;
+redo Santa and do return if last one, is, delivered;
-deliver: gift and require diagnostics if our $gifts ,not break;
-do{ use NEXT; time; tied $gifts} if broken and dump the, broken, ones;
-The_children: sleep and wait for (each %gift) and try { to => untie $gifts };
+deliver: gift and require diagnostics if our $gifts ,not break;
+do{ use NEXT; time; tied $gifts} if broken and dump the, broken, ones;
+The_children: sleep and wait for (each %gift) and try { to => untie $gifts };
-redo Santa, pipe $gifts, to_childs;
-redo Santa and do return if last one, is, delivered;
+redo Santa, pipe $gifts, to_childs;
+redo Santa and do return if last one, is, delivered;
-The_christmas_tree: formline s/ /childrens/, $gifts;
-alarm and warn if not exists $Christmas{ tree}, @t, $ENV{HOME};
-write <<EMail
- to the parents to buy a new christmas tree!!!!111
- and send the
-EMail
-;wait and redo deliver until defined local $tree;
+The_christmas_tree: formline s/ /childrens/, $gifts;
+alarm and warn if not exists $Christmas{ tree}, @t, $ENV{HOME};
+write <<EMail
+ to the parents to buy a new christmas tree!!!!111
+ and send the
+EMail
+;wait and redo deliver until defined local $tree;
-redo Santa, pipe $gifts, to_childs;
-redo Santa and do return if last one, is, delivered ;}
+redo Santa, pipe $gifts, to_childs;
+redo Santa and do return if last one, is, delivered ;}
-END {} our $mission and do sleep until next Christmas ;}
+END {} our $mission and do sleep until next Christmas ;}
-__END__
+__END__
-This is perl, v5.8.8 built for i386-freebsd-64int
+This is perl, v5.8.8 built for i386-freebsd-64int
shopping.pl
@@ -155,35 +160,35 @@ This is perl, v5.8.8 built #!/usr/bin/perl
+#!/usr/bin/perl
-# (C) 2007 by Paul C. Buetow
+# (C) 2007 by Paul C. Buetow
-BEGIN{} goto mall for $shopping;
+BEGIN{} goto mall for $shopping;
-m/y/; mall: seek$s, cool products(), { to => $sell };
-for $their (@business) { to:; earn:; a:; lot:; of:; money: }
+m/y/; mall: seek$s, cool products(), { to => $sell };
+for $their (@business) { to:; earn:; a:; lot:; of:; money: }
-do not goto home and exit mall if exists $new{product};
-foreach $of (q(uality rich products)){} package products;
+do not goto home and exit mall if exists $new{product};
+foreach $of (q(uality rich products)){} package products;
-our $news; do tell cool products() and do{ sub#tract
-cool{ $products and shift @the, @bad, @ones;
+our $news; do tell cool products() and do{ sub#tract
+cool{ $products and shift @the, @bad, @ones;
-do bless [q(uality)], $products
-and return not undef $stuff if not (local $available) }};
+do bless [q(uality)], $products
+and return not undef $stuff if not (local $available) }};
-do { study and study and study for cool products() }
-and do { seek $all, cool products(), { to => $buy } };
+do { study and study and study for cool products() }
+and do { seek $all, cool products(), { to => $buy } };
-do { write $them, $down } and do { order: foreach (@case) { package s } };
-goto home if not exists $more{money} or die q(uerying) ;for( @money){};
+do { write $them, $down } and do { order: foreach (@case) { package s } };
+goto home if not exists $more{money} or die q(uerying) ;for( @money){};
-at:;home: do { END{} and:; rest:; a:; bit: exit $shopping }
-and sleep until unpack$ing, cool products();
+at:;home: do { END{} and:; rest:; a:; bit: exit $shopping }
+and sleep until unpack$ing, cool products();
-__END__
-This is perl, v5.8.8 built for i386-freebsd-64int
+__END__
+This is perl, v5.8.8 built for i386-freebsd-64int
More...
@@ -203,11 +208,12 @@ This is perl, v5.8.8 built
- Generated with Gemtexter 3.0.1-develop |
- served by OpenBSD/relayd(8)+httpd(8) |
- Site Mirrors
-
- Webring: previous | shring | next
+ Generated with Gemtexter 3.0.1-develop |
+ served by OpenBSD/relayd(8)+httpd(8) |
+ Site Mirrors
+
+ Webring: previous | shring | next
datatype ’a multi - = EMPTY - | ELEM of ’a - | UNION of ’a multi * ’a multi +datatype ’a multi + = EMPTY + | ELEM of ’a + | UNION of ’a multi * ’a multi
Haskell:
@@ -52,11 +57,11 @@ http://www.gnu.org/software/src-highlite --> by Lorenzo Bettini http://www.lorenzobettini.it http://www.gnu.org/software/src-highlite --> -data (Eq a) => Multi a - = Empty - | Elem a - | Union (Multi a) (Multi a) - deriving Show +data (Eq a) => Multi a + = Empty + | Elem a + | Union (Multi a) (Multi a) + deriving Show
Processing a multi
@@ -67,12 +72,12 @@ http://www.gnu.org/software/src-highlite --> by Lorenzo Bettini http://www.lorenzobettini.it http://www.gnu.org/software/src-highlite --> -fun number (EMPTY) _ = 0 - | number (ELEM x) w = if x = w then 1 else 0 - | number (UNION (x,y)) w = (number x w) + (number y w) -fun test_number w = number (UNION (EMPTY, \ - UNION (ELEM 4, UNION (ELEM 6, \ - UNION (UNION (ELEM 4, ELEM 4), EMPTY))))) w +fun number (EMPTY) _ = 0 + | number (ELEM x) w = if x = w then 1 else 0 + | number (UNION (x,y)) w = (number x w) + (number y w) +fun test_number w = number (UNION (EMPTY, \ + UNION (ELEM 4, UNION (ELEM 6, \ + UNION (UNION (ELEM 4,