Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon. Entire thread

Check out my program

Name: Anonymous 2015-05-03 13:04

#include <stdio.h>
#include <unistd.h>
#define LEN 15
int print(i,j) {
  for (; i < LEN; ++i)
    printf(" ");
  puts("a");
  usleep(50000);
  return 0;
}
int main(void)
{
  int i, j;
  for(;;) {
    for (j = 0; j < LEN; print(i), ++j)
      i = j;
    for (j = 0; j < LEN; print(i), ++j)
      i = LEN-1-j;
  }
  return 0;
}

Do you like it?

At first I tried to make it be the SICP snake, with the head going down, but it was too hard for me.

Name: !bWoaiZzZTQ 2015-05-06 2:09

#lang racket

(define LEN 15)

(define sprint
  (lambda (i)
    (if (>= i LEN)
        (display "/\\/\\/\\\n")
        (begin
          (display " ")
          (sprint (+ i 1))))))

(define main
  (lambda (i enum)
    (let [(new-enum
             (cond
               ((and (equal? enum -) (= i 0)) +)
               ((and (equal? enum +) (= i LEN)) -)
               (#t enum)))]
      (sprint i)
      (main (new-enum i 1) new-enum))))

(main 0 +)

Newer Posts

Check out my program

1 Name: Anonymous 2015-05-03 13:04

47 Name: !bWoaiZzZTQ 2015-05-06 2:09

Name: Anonymous 2015-05-03 13:04

Name: !bWoaiZzZTQ 2015-05-06 2:09