Clean Programming Language

[Exta-C]

I have found a programming language called 'Clean' on the internet. It is a 3rd party programming language, VERY complicated to learn, but EXTREMELY useful to use. I can't remember the URL to download it right now, but has anyone else got it??

btw, here is a sample of the code from a game made in Clean

import StdEnv, StdIO, StdGameDef, StdGame, StdGSt, GameFunctions, Random, notes

import WormsGfx  /* generated by Tile Studio */

::  GameState
    = { curlevel    :: !Int
      , maxlevel    :: !Int
      , quit        :: !Bool
      , wormlist    :: ![RealXY]
      , gameover    :: !Bool
      , timecounter :: !Int
      , randseed    :: !RandomSeed
      }

initialGameState = { curlevel = 0
                   , maxlevel = 7
                   , quit = False
                   , wormlist = []
                   , gameover = False
                   , timecounter = 0
                   , randseed = nullRandomSeed
                   }

/* move with speed V */

V = 3.0  /* 24 rem V must be 0 */

/* ---------- main program: load game definition and start the game! ---------- */

Start :: *World -> *World
Start world 
    # (seed, world) = getNewRandomSeed world
    = startGame WormsDemo {initialGameState & randseed = seed}
              [ScreenSize {w = 640, h = 480}, ColorDepth 16] world

/* ---------- the complete game definition ---------- */

WormsDemo :: (Game GameState)
WormsDemo =
    { levels = [ blankScreen
               , GameLevel1
               , blankScreen
               , GameLevel2
               , blankScreen
               , GameLevel3
               , blankScreen
               ]
    , quitlevel = accGSt WormsQuitFunction
    , nextlevel = accGSt WormsNextLevelFunction
    , textitems = accGSt WormsTextItems
    }

/* if the quit function returns true, the game engine quit the level */

WormsQuitFunction :: GameState -> (Bool, GameState)
WormsQuitFunction gst
    = (gst.quit, gst)

/* function that returns the next level to run, 0 = end game */

WormsNextLevelFunction :: GameState -> (Int, GameState)
WormsNextLevelFunction gst =: {curlevel, maxlevel, gameover}
    = (nextLevel, {gst & curlevel = nextLevel
                       , quit = False
                       , timecounter = (time nextLevel)
                       })
where
    nextLevel = if (gameover || (curlevel + 1 > maxlevel)) 0 (curlevel + 1)
    time l = if (l == maxlevel) 500 (if (l rem 2 == 1) 100 (~1))

/* function that returns text to be displayed */

WormsTextItems :: GameState -> ([GameText], GameState)
WormsTextItems gst =: {curlevel, gameover, timecounter, maxlevel}
    #   gst = {gst & timecounter = timecounter - 1}
    |   gst.timecounter == 0
        = ([], {gst & quit = True})
    |   gameover
        |   timecounter < 0
            =   ([GameOver], {gst & timecounter = 250})
        =   ([GameOver], gst)
    =   if (curlevel == maxlevel)
            ([Ending1 timecounter, Ending2 timecounter], gst)
            (if (curlevel rem 2 == 1)
                ([LevelStat ((curlevel + 1) / 2)], gst)
                ([], gst)
            )

[muzzi]

looks like some wierd delphi / c hybrid.. cool..

i want..

[Exta-C]

Clean Programming Language HomePage

[muzzi]

excellent thanks heaps!

[/\/\isanThr0p]

Hey did you do any speed checks on that?
The concepts seem intersting, but I am not really ready to invest time learning a language, that noone else programs in. I don't even know C so that would be the first new language for me to learn.

[Jotaf98]

Don't worry Misanthrop, I didn't know anything about Java/C++ when I learned a scripting language for a game based on that, and it was not that hard, since I already had all the programming concepts learned

But anyway, I don't see anything in the code that allows you to fire, choose weapons, and all! Is it something like "Hello World"? A game would have to be more complex than that

BTW, look at the front page of it - you can't say no one programs in it

[Megatron]

This looks similar to C.

[Cuallito]

You ppl are nuts. I don't get why any1 would bother to learn a lanuage as confusing as that. Euphoria's one of the most powerful languages i've ever used, and you can translate it 2 C and then compile it, so its ~95% as fast.