From 8a78337ea4dcb0b154bd1c754218ca01c8f9015d Mon Sep 17 00:00:00 2001
From: Paul Buetow package main
+
package main
-import "log"
+import "log"
-type fun func() string
+type fun func() string
-func (f fun) Bar() string {
- return "Bar"
-}
+func (f fun) Bar() string {
+ return "Bar"
+}
-func main() {
- var f fun = func() string {
- return "Foo"
- }
- log.Println("Example 1: ", f())
- log.Println("Example 2: ", f.Bar())
- log.Println("Example 3: ", fun(f.Bar).Bar())
- log.Println("Example 4: ", fun(fun(f.Bar).Bar).Bar())
-}
+func main() {
+ var f fun = func() string {
+ return "Foo"
+ }
+ log.Println("Example 1: ", f())
+ log.Println("Example 2: ", f.Bar())
+ log.Println("Example 3: ", fun(f.Bar).Bar())
+ log.Println("Example 4: ", fun(fun(f.Bar).Bar).Bar())
+}
It runs just fine:
@@ -107,11 +112,11 @@ http://www.gnu.org/software/src-highlite -->
by Lorenzo Bettini
http://www.lorenzobettini.it
http://www.gnu.org/software/src-highlite -->
-❯ go run main.go
-2025/02/07 22:56:14 Example 1: Foo
-2025/02/07 22:56:14 Example 2: Bar
-2025/02/07 22:56:14 Example 3: Bar
-2025/02/07 22:56:14 Example 4: Bar
+
❯ go run main.go
+2025/02/07 22:56:14 Example 1: Foo
+2025/02/07 22:56:14 Example 2: Bar
+2025/02/07 22:56:14 Example 3: Bar
+2025/02/07 22:56:14 Example 4: Bar
macOS
@@ -130,20 +135,20 @@ http://www.gnu.org/software/src-highlite -->
by Lorenzo Bettini
http://www.lorenzobettini.it
http://www.gnu.org/software/src-highlite -->
-❯ touch Maß
-❯ ls -l
--rw-r--r--@ 1 paul wheel 0 Feb 7 23:02 Maß
-❯ touch Mass
-❯ ls -l
--rw-r--r--@ 1 paul wheel 0 Feb 7 23:02 Maß
-❯ rm Mass
-❯ ls -l
+
❯ touch Maß
+❯ ls -l
+-rw-r--r--@ 1 paul wheel 0 Feb 7 23:02 Maß
+❯ touch Mass
+❯ ls -l
+-rw-r--r--@ 1 paul wheel 0 Feb 7 23:02 Maß
+❯ rm Mass
+❯ ls -l
-❯ touch Mass
-❯ ls -ltr
--rw-r--r--@ 1 paul wheel 0 Feb 7 23:02 Mass
-❯ rm Maß
-❯ ls -l
+❯ touch Mass
+❯ ls -ltr
+-rw-r--r--@ 1 paul wheel 0 Feb 7 23:02 Mass
+❯ rm Maß
+❯ ls -l
@@ -187,16 +192,16 @@ ADFS::4.$.Documents.Techwriter.Myfile
by Lorenzo Bettini
http://www.lorenzobettini.it
http://www.gnu.org/software/src-highlite -->
-arr = {10, 20, 30, 40, 50}
-print(arr[1]) -- Accessing the first element
+arr = {10, 20, 30, 40, 50}
+print(arr[1]) -- Accessing the first element
-❯ lua foo.lua
-10
+
❯ lua foo.lua
+10
One-based indexing is more natural for human-readable, mathematical, and theoretical contexts, where counting traditionally starts from one.
@@ -211,45 +216,45 @@ http://www.gnu.org/software/src-highlite -->
by Lorenzo Bettini
http://www.lorenzobettini.it
http://www.gnu.org/software/src-highlite -->
-# (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
More Perl Poetry of mine
@@ -284,11 +289,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