[Majic-digest-all] Majic-lang-erc digest, Vol 1 #4 - 1 msg

[<maj...@li...>]

____________________________________________
Did you know that you could
earn money with Dot TK? It's
simple. Become an affiliate
today and promote Dot TK on
your website!

http://www.dot.tk/vc00804.html
____________________________________________



Send Majic-lang-erc mailing list submissions to
	maj...@li...

To subscribe or unsubscribe via the World Wide Web, visit
	https://lists.sourceforge.net/lists/listinfo/majic-lang-erc
or, via email, send a message with subject or body 'help' to
	maj...@li...

You can reach the person managing the list at
	maj...@li...

When replying, please edit your Subject line so it is more specific
than "Re: Contents of Majic-lang-erc digest..."


Today's Topics:

   1. Useful Erc rev1 library code (John Ohno)

--__--__--

Message: 1
Date: Wed, 22 Dec 2004 16:19:13 -0500
From: John Ohno <joh...@gm...>
Reply-To: John Ohno <joh...@gm...>
To: maj...@li...
Subject: [Majic-lang-erc] Useful Erc rev1 library code

Hello, world:

I have generated some code for all of your enjoyment:

======================CUT-HERE=================
;; loops ;;

op while {
op loop {
[ 1 ] ;
cond ( ? [ 0 ] ) {
{ } -> loop ;
}
}
cond ( ? [ 0 ] ) {
{ } -> loop ;
}
}

op for {
[ 3 ] ;
[ 2 ] ;
cond ( ? [ 1 ] ) {
{ } -> loop ;
}
}
[ 0 ] ;
cond ( ? [ 1 ] ) {
{ } -> loop ;
}

op for-each {
element i { '1 } ;
whole "! { [ i ] = #e }" {
[ i ] -> [ 0 ] ;
i + '1 -> i ;
}
}
===============END-CUT=======================

Useful, isn't it?

~John Ohno

-- 
I feel... Accelerated



--__--__--

_______________________________________________
Majic-lang-erc mailing list
Maj...@li...
https://lists.sourceforge.net/lists/listinfo/majic-lang-erc


End of Majic-lang-erc Digest