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: Anonymous 2015-05-04 19:31

>>20
module Snake where

import Control.Monad
import Control.Concurrent

len :: Int
len = 15

iterateur :: [Int]
iterateur = (take len $ iterate (+1) 0) ++ (take len $ iterate (subtract 1) len)

main :: IO ()
main = forever $ do
forM_ iterateur $ \i -> do
putStrLn $ replicate i ' ' ++ "0 0 0 0"
threadDelay 20000

Name: Anonymous 2015-05-04 19:34

Or, to make it more compact like you like,

module Snake where
import Control.Monad
import Control.Concurrent

len :: Int
len = 15
iterateur = (take len $ iterate (+1) 0) ++ (take len $ iterate (subtract 1) len)
main = forever $ do
forM_ iterateur $ \i -> do
putStrLn $ replicate i ' ' ++ "0 0 0 0"
threadDelay 20000
Newer Posts
Don't change these.
Name: Email:
Entire Thread Thread List
All trademarks and copyrights on this site are owned by their respective parties. All comments and posts are the responsibility of their own posters.
- Tinychan + 2ch Mode + RSS -