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
strArea="100.00【60.99,70.00】" k,v=string.match(strArea,"([%a%.]+)【(^】)】" print(k,v)
-
1 2 3 4 5 6 7 8 9
strArea="100.00【60.99,70.00】" t = {} s = "from=world, to=Lua" for k, v in string.gmatch(s, "(%w+)=(%w+)") do t[k]=v end for k, v in pairs(t) do print(k,v) end
-
1 2
strArea="100.00【60.99,70.00】" print(string.gsub(strArea,"%b【】"))
-
1 2
strArea="100.00【60.99,70.00】" print(string.sub(strArea,"%b【】"))
-
1 2
strArea="100.00【60.99,70.00】" print(string.find(strArea,"%b【】"))
-
1 2
strArea="100.00【60.99,70.00】" print(string.find(strArea,"%b【】",""))
-
1 2 3 4 5
strArea="100.00【60.99,70.00】" print(string.gsub(strArea,"%b【】","")) print(string.gsub("a (enclosed (in) parentheses) line", "%b()", ""))
-
1 2
strArea="100.00【60.99,70.00】" print(string.gsub(strArea,"%b【】"),"")
-
1 2
strArea="100.00【60.99,70.00" print(string.gsub(strArea,"%b【】"))
-
1 2 3 4 5 6
n = 0 if n then print("true") else print("false") end
-
1 2 3 4 5 6 7
#include <stdio.h> int main() { long int g = 100000*100000; printf("%ld", g); }
-
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
print (1+2)
-
1
print 1+2
-
1
=1+2
-
1 2 3 4 5 6 7 8 9
...
-
1 2 3 4 5 6 7 8 9
function add(n, acc) acc = acc or 0 if n == 0 then return acc end return add(n-1, 1+acc) end print(add(1000000))
-
1 2 3 4 5 6 7 8 9
if redstone.setOutput("back", false) == true then print("The lights are off. Would you like to turn them on?") else print("The lights are on. Would you like to turn them off?") end sleep(1) print("Press Enter to switch lights on/off") if keyPress(13) == true then if redstone.setOutput("back", false) == true then
...
-
1 2
x = 3 g = { 2, 3, 5}
-
1 2 3
if vx.ServerList[ServerList.selectedServer].Host ~= nil then SetCVar("realmlist", vx.ServerList[ServerList.selectedServer].Host); end
-
1 2 3 4 5 6 7 8 9
-- /flex function TempRealmlistWindowbox() TRLWB = CreateFrame("EditBox", nil, UIParent) TRLWB:SetWidth(300) TRLWB:SetHeight(100) TRLWB:SetPoint("CENTER") TRLWB:SetNumeric(false) TRLWB:SetAutoFocus(true) TRLWB:SetFontObject("GlueFontHighlight")
...
-
1
-
1 2 3 4 5 6 7 8 9
local int Item1 = GetQuestItemCount(UID, 110174) local int Item2 = GetQuestItemCount(UID, 110175) local int Item3 = GetQuestItemCount(UID, 110176) local int Item4 = GetQuestItemCount(UID, 110177) if choice == 1 then if Item1 >= 10 and Item3 >= 10 then local int iinven = CheckInvenSpace (UID, 1) if iinven == 1 then
...
-
1 2 3 4 5 6 7 8 9
<?xml version="1.0" ?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"><head> <title>Geocache GC... Für Informatiker - 2</title> </head>
...
-
1 2 3 4 5 6 7 8 9
------- --- Begginers tips to LUA testing --- --- 1. Save state (macros/action bars for example) before ANY testing (for later restoration in teardown) --- 2. Delete all test profiles --- 3. Write the TEST first, then the actual FUNCTION() in Core() --- . Test Blizzard code for changes too! --- . Make sure your Echo() is quiet while testing so you don't get spammed. --- . Comment your tests too!
...
-
1 2 3 4 5 6 7 8 9
y = 2 x = 3 i = "you are dog" l = "lucky, you are not dog" j = "Buddy:" if y == 2 then print(j,i) end if y == 1 then
...
-
1
print"hello world"
-
1 2 3 4 5 6 7 8 9
function add(n, acc) acc = acc or 0 if n == 0 then return acc end return add(n-1, 1+acc) end print(add(1000000))
-
1 2 3 4 5 6 7 8 9
function range(a, b, s) local a, b, s = a or 1, b, s or 1; local function it() local i = 0 for i=a, b, s do coroutine.yield(i) end coroutine.yield() end
...
-
1 2
url = 'http://hastebin.com/' print(url)