It's the space shuttle!
/* priapic numeracy
* ----------------
*
* (c) James W. Morris 8th September 2009
*
* Licensed for modification and redistribution
* under the terms of the GNU GPL V3.
* For precise detail see:
* http://www.gnu.org/copyleft/gpl.html
*
* To build on GNU/Linux platforms,
* gcc priapic_numeracy -o priapic_numeracy
*
* To run after building
* ./priapic_numeracy
*
* Eroticized by Pall Thayer - 08. sept. 2009
*/
#include <stdio.h>
#include <stdlib.h>
int main()
{
enum { BOOST = 10, ERECT = BOOST - 1, ROCKET = 125 };
long *explode = malloc(BOOST * sizeof(long));
if ( !explode )
return EXIT_FAILURE;
long *erect = explode + ERECT, *space;
for ( space = explode; space <= erect ; space++ )
*space = space - explode;
for ( space = explode; *erect < ROCKET; ++*space, space = ( space <
erect ? ++space : explode ) )
printf ( (space == erect ? "%ld\n" : "%ld " ), *space);
free ( explode );
return EXIT_SUCCESS;
}
On Tue, Sep 8, 2009 at 9:33 AM, james morris<[email protected]> wrote:
>
> /* priapic numeracy
> ----------------
>
> (c) James W. Morris 8th September 2009
>
> Licensed for modification and redistribution
> under the terms of the GNU GPL V3.
> For precise detail see:
> http://www.gnu.org/copyleft/gpl.html
>
> To build on GNU/Linux platforms,
> gcc priapic_numeracy -o priapic_numeracy
>
> To run after building
> ./priapic_numeracy
> */
>
> #include <stdio.h>
> #include <stdlib.h>
>
> int main()
> {
> enum { SIZE = 10, LAST = SIZE - 1, MAX = 125 };
> long *a = malloc(SIZE * sizeof(long));
> if ( !a )
> return EXIT_FAILURE;
> long *last = a + LAST, *p;
> for ( p = a; p <= last ; p++ )
> *p = p - a;
> for ( p = a; *last < MAX; ++*p, p = ( p < last ? ++p : a ) )
> printf ( (p == last ? "%ld\n" : "%ld " ), *p);
> free ( a );
> return EXIT_SUCCESS;
> }
> _______________________________________________
> NetBehaviour mailing list
> [email protected]
> http://www.netbehaviour.org/mailman/listinfo/netbehaviour
>
--
*****************************
Pall Thayer
artist
http://www.this.is/pallit
*****************************
_______________________________________________
NetBehaviour mailing list
[email protected]
http://www.netbehaviour.org/mailman/listinfo/netbehaviour
