Recent public codes are listed below. You can filter them by the following programming languages:
- view
- All
- Ada
- Assembler
- Assembler
- AWK (gawk)
- AWK (mawk)
- Bash
- bc
- Brainf**k
- C
- C#
- C++
- C++0x
- C99 strict
- CLIPS
- Clojure
- COBOL
- COBOL 85
- Common Lisp (clisp)
- D (dmd)
- Erlang
- F#
- Factor
- Falcon
- Forth
- Fortran
- Go
- Groovy
- Haskell
- Icon
- Intercal
- Java
- JavaScript (rhino)
- JavaScript (spidermonkey)
- Lua
- Nemerle
- Nice
- Nimrod
- Objective-C
- Ocaml
- Oz
- Pascal (fpc)
- Pascal (gpc)
- Perl
- Perl 6
- PHP
- Pike
- Prolog (gnu)
- Prolog (swi)
- Python
- Python 3
- R
- Ruby
- Scala
- Scheme (guile)
- Smalltalk
- SQL
- Tcl
- Text
- Unlambda
- VB.NET
- Whitespace
-
1 2 3 4 5 6 7 8 9
function Factorial_Lua( n ) if type( n ) == 'number' and n == math.floor( n ) then if n > 0 then local res = 1 for i = 2, n do res = res * i end return res else
...
-
1 2 3 4 5 6 7 8 9
function Factorial_Lua( n ) if type( n ) == 'number' and n == math.floor( n ) then if n > 0 then local res = 1 for i = 2, n do res = res * i end return res else
...
-
1 2 3 4 5 6 7 8 9
function Factorial_Lua( n ) if type( n ) == 'number' and n == math.floor( n ) then if n > 0 then local res = 1 for i = 2, n do res = res * i end return res else
...
-
1 2 3 4 5 6 7 8 9
function Factorial_Lua( n ) if type( n ) == 'number' and n == math.floor( n ) then if n > 0 then local res = 1 for i = 2, res do res = res * i end return res else
...
-
1 2 3 4 5 6 7 8 9
function Factorial_Lua( n ) if type( n ) == 'number' and n == math.floor( n ) then if n > 0 then local res = 1 for i = 2, res do res = res * i end return res else
...
-
1
Mfp ey zwvo fvat rjx hwprdrr lb nawzh tnfpc: Anj icvlu, hjgy Kbffhg, zk hjp gm nso nntjj, phf sw vawwhnwer, pcum nu oeq ewllxqmqit
-
1
print("Hallo Welt")
-
1
screen:print("Hallo Welt")
-
1 2 3 4 5 6 7 8 9
http://www.xtibia.com/forum/uploads/profile/photo-280724.jpg data\npc\scripts\heal.lua local pokeballs = { [1] = {effect = 188, on = 11826, use = 11827, off = 11828, all = {11826, 11827, 11828}},
...
-
1 2 3 4 5 6 7 8 9
-- ExpHit por Stage by Uissu local rateExp = getConfigValue('rateExperience') or 1 local useStages = true local tableStages = { -- {min,max or -1,rate} {1,75,200},{76,150,100},{151,200,50},{201,275,35},{276,300,25},{301,350,15},{351,375,10},{376,400,5},{401,425,3},{426,-1,1} } function getPlayerStageRate(cid, table) -- by Uissu for _,v in ipairs(table) do
...
-
1 2 3 4 5 6 7 8 9
local function getLastIndex() local f = http.get("http://immibis.awardspace.biz/cc/iim/get.php") local last = tonumber(f.readLine()) f.close() return last end local function urlencode(msg) local ok = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-_.~"
...
-
1
-
1 2 3 4 5 6 7 8 9
function func() return 10, 20, 30, 40, 50, "abc" end r1, r2, r3, r4, r5, r6 = func() print(r1, r2, r3, r4, r5, r6) print(type(r1)) print(type(r6))
-
1
Mfp ey zwvo fvat rjx hwprdrr lb nawzh tnfpc: Anj icvlu, hjgy Kbffhg, zk hjp gm nso nntjj, phf sw vawwhnwer, pcum nu oeq ewllxqmqit
-
1 2 3 4 5 6 7 8 9
function func() return 10, 20, 30, 40, 50, "abc" end r1, r2, r3, r4, r5, r6 = func() print(r1, r2, r3, r4, r5, r6) print(type(r1)) print(type(r6))
-
1 2 3 4 5 6 7 8 9
function func() return 10, 20, 30, 40, 50, "abc" end r1, r2, r3, r4, r5, r6 = func() print(r1, r2, r3, r4, r5, r6) print(type(r1)) print(type(r6))
-
1 2 3 4 5 6 7 8 9
require("cURL") -- open output file f = io.open("example_homepage", "w") c = cURL.easy_init() -- setup url c:setopt_url("http://www.example.com/") -- perform, invokes callbacks
...
-
1 2 3 4 5 6 7
local read, write = io.read, io.write local num, nl = '*n', '\n' while true do local a = read(num) if a == 42 then return end write(a, nl) end
-
1 2
wowbuild = 303001; if wowbuild ~= 30300 then print("not"); end
-
1 2
wowbuild = 30300; if wowbuild ~= 30300 then print("not"); end
-
1 2
wowbuild = 30300; if wowbuild == 30300 then print("not"); end
-
1 2
wowbuild = 30300; if not wowbuild == 30300 then print("not"); end
-
1 2
wowbuild = 303001; if not wowbuild == 30300 then print("not"); end
-
1 2
wowbuild = 303001; if wowbuild not 30300 then print("not"); end
-
1 2
wowbuild = 303001; if wowbuild not 30300 print("not"); end
-
1 2 3 4 5 6 7 8 9
local IntGold = 0 * 10000; local IntSilver = 0 * 100; local IntCopper = 0; if IntCopper == nil then IntCopper = 0; end if IntSilver == nil then IntCopper = 0; end if IntSilver == nil then IntCopper = 0; end if IntGold and IntSilver and IntCopper == nil or 0 then ShowMessage("Please set a gold value to modify."); end print("modify gold " ..(IntGold + IntSilver + IntCopper));
...
-
1 2 3 4 5 6 7 8 9
local IntGold = 0 * 10000; local IntSilver = 0 * 100; local IntCopper = 0; if IntCopper == nil then IntCopper = 0; end if IntSilver == nil then IntCopper = 0; end if IntSilver == nil then IntCopper = 0; end if IntGold IntSilver IntCopper == nil or 0 then ShowMessage("Please set a gold value to modify."); end print("modify gold " ..(IntGold + IntSilver + IntCopper));
...
-
1 2 3 4 5 6 7 8 9
local IntGold = 0 * 10000; local IntSilver = 0 * 100; local IntCopper = 0; if IntCopper == nil then IntCopper = 0; end if IntSilver == nil then IntCopper = 0; end if IntSilver == nil then IntCopper = 0; end if IntGold, IntSilver, IntCopper == nil or 0 then ShowMessage("Please set a gold value to modify."); end print("modify gold " ..(IntGold + IntSilver + IntCopper));
...
-
1 2 3 4 5 6 7 8
local IntGold = 0 * 10000; local IntSilver = 0 * 100; local IntCopper = 0; if IntCopper == nil then IntCopper = 0; end if IntSilver == nil then IntCopper = 0; end if IntGold == nil then ShowMessage("Please set a gold value to modify."); end print("modify gold " ..(IntGold + IntSilver + IntCopper));
-
1 2 3 4 5 6 7 8
local IntGold = 1 * 10000; local IntSilver = 0 * 100; local IntCopper = 0; if IntCopper == nil then IntCopper = 0; end if IntSilver == nil then IntCopper = 0; end if IntGold == nil then ShowMessage("Please set a gold value to modify."); end print("modify gold " ..(IntGold + IntSilver + IntCopper));


