[NetBehaviour] priapic numeracy

Pall Thayer pallthay at gmail.com
Tue Sep 8 12:14:27 CEST 2009


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<james at jwm-art.net> 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
> NetBehaviour at netbehaviour.org
> http://www.netbehaviour.org/mailman/listinfo/netbehaviour
>



-- 
*****************************
Pall Thayer
artist
http://www.this.is/pallit
*****************************



More information about the NetBehaviour mailing list