Historical SampleCode, Revision 8
Prompt the user for a string
-- Sample of Euphoria Source code -- include std/io.e constant CONSOLE = 1, KEYBOARD = 0, $ public function prompt_string(sequence prompt) object answer puts(CONSOLE, prompt) answer = gets(KEYBOARD) puts(CONSOLE, "\n") if sequence(answer) and length(answer) > 0 then return answer[1..$-1] -- trim the trailing end-of-line character else return "" end if end function writefln("You entered '[]'", { prompt_string("Enter your name: ")})
Sieve Of Erathosthenes
include std/io.e include std/convert.e include std/map.e include std/cmdline.e procedure eratosthenes(integer target) sequence sieve integer next_prime integer limit sieve = repeat(0, target) limit = floor(power(target, 0.5)) sieve[1] = 1 next_prime = 2 while next_prime <= target and next_prime != 0 do if next_prime <= limit then integer startnum = next_prime + next_prime for i = startnum to target by next_prime do sieve[i] = 1 end for end if writef( "[] ", next_prime) next_prime = find(0, sieve, next_prime+1) end while return end procedure procedure main() integer n object cmds cmds = cmd_parse({{"l", "limit", "The largest prime to find", {HAS_PARAMETER,ONCE}, -1}}) -- Default is 50. n = to_integer(map:get(cmds, "limit", 50) ) eratosthenes(n) end procedure main( )
99 Bottles of Beer
include wildcard.e function cap(sequence x) x[1] = upper(x[1]) return x end function function count_bottles(integer n) sequence text switch n do case 0 then text = "no more bottles" break case 1 then text = "1 bottle" break case else text = sprintf("%d bottles", n) end switch return text end function procedure main() sequence bottlecount bottlecount = count_bottles(99) for i = 99 to 0 by -1 do -- Line one of the stanza printf(1, "%s of beer on the wall, %s of beer.\n", {cap(bottlecount), bottlecount}) -- Line 2 of the stanza if i > 0 then puts(1, "Take one down and pass it around, ") else puts(1, "Go to the store and buy some more, ") end if if i > 0 then bottlecount = count_bottles(i-1) else bottlecount = count_bottles(99) end if printf(1, "%s of beer on the wall.\n\n", {bottlecount}) end for end procedure main()
Not Categorized, Please Help
|
- diff to current revision, view current revision history, backlinks
- Last modified Dec 26, 2010 by DerekParnell