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));

1
2
3
4
5
function helloWorld()
 
print("Hello World!")
 
end

1
print("Hello")

1
2
3
4
5
if "Hello" > "Test" then
print("OK")
else
print("Fail")
end

1
2
3
4
5
if "Hello" > "Teste" then
print("OK")
else
print("Fail")
end

1
2
local x = "Hello"
print(x.." World")

1
print="Hello World!"

1
2
3
4
    _grandmasAge = 74
    willysIQ = 105
    myBalance = -55.26
    PointFiveTimesSquareRootTwo = 0.707107

1
2
3
4
 willyIsDrunken = true
    grandmaIsBad = false
    williysWifeIsBad = true
    

1
2
3
4
BCS2012=[[#1 LSU vs. #2 Alabama
Score:21 ALA 0 LSU]]
 
BCS2012

1
print( "Player"..5 )

1
myCV   = [[ born    : yes  place of birth : no idea  ]]

1
myCV   = [[ born    : yes  place of birth : no idea  ]]

1
2
3
4
_grandmasAge = 74
    willysIQ = 105
    myBalance = -55.26
    PointFiveTimesSquareRootTwo = 0.707107

1
2
3
willy234 = nil
 
willy234

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
3
 #!/usr/local/bin/perl
     print "Hello World!\n";
                                                               

1
Hello World                                                                                            

1
print("(* ocaml *)\nprint_endline\"-- haskell\\nimport Data.List;import Data.Bits;import Data.Char;main=putStrLn(\\\"/* C */\\\\n#include<stdio.h>\\\\nint main(void){char*s[501]={\\\"++intercalate\\\",\\\"(c(tail(init(show(\\\"/* Java */\\\\npublic class QuineRelay{public static void main(String[]a){String[]s={\\\"++intercalate\\\",\\\"(c(\\\"brainfuck\\\\\\\\n++++++++[>++++<-]+++++++++>>++++++++++\\\"++(concat(snd(mapAccumL h 2(\\\"110\\\"++g(length s)++\\\"22111211100111112021111102011112120012\\\"++concatMap(\\\\c->let d=ord c in if d<11then\\\"21002\\\"else\\\"111\\\"++g d++\\\"22102\\\")s++\\\"21002111010120211222211211101000120211021120221102111000110120211202\\\"))))))++\\\",\\\\\\\"\\\\\\\\n\\\\\\\"};int i=0;for(;i<94;i++)System.out.print(s[i]);}}\\\")))))++\\\",0};int i=0;for(;s[i];i++)printf(\\\\\\\"%s\\\\\\\",s[i]);puts(\\\\\\\"\\\\\\\");return 0;}\\\");c s=map(\\\\s->\\\"\\\\\\\"\\\"++s++\\\"\\\\\\\"\\\")(unfoldr t s);t[]=Nothing;t s=Just(splitAt(if length s>w&&s!!w=='\\\"'then 501else w)s);w=500;f 0=Nothing;f x=Just((if x`mod`2>0then '0'else '1'),x`div`2);g x= reverse (unfoldr f x);h p c=let d=ord c-48in(d,replicate(abs(p-d))(if d<p then '<'else '>')++\\\".\\\");s=\\\"# ruby\\\\n\\\"++\\\"l=92.chr;eval s=\\\\\\\"s=s.dump[r=1..-2].gsub(/(\\\\\\\"+l*4+\\\\\\\"){4,}(?!\\\\\\\\\\\\\\\")/){|t|'\\\\\\\\\\\\\\\"+l*%d+\\\\\\\\\\\\\\\"'%(t.size/2)};5.times{s=s.dump[r]};puts\\\\\\\\\\\\\\\"# python\\\\\\\\\\\\\\\\nprint(\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"# perl\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\nprint(\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"# lua\\\\\\\"+l*4+\\\\\\\"nprint(\\\\\\\"+l*7+\\\\\\\"\\\\\\\\\\\\\\\"(* ocaml *)\\\\\\\"+l*8+\\\\\\\"nprint_endline\\\\\\\"+l*15+\\\\\\\"\\\\\\\\\\\\\\\"-- haskell\\\\\\\"+l*16+\\\\\\\"nimport Data.List;import Data.Bits;import Data.Char;main=putStrLn(\\\\\\\"+l*31+\\\\\\\"\\\\\\\\\\\\\\\"/* C */\\\\\\\"+l*32+\\\\\\\"n#include<stdio.h>\\\\\\\"+l*32+\\\\\\\"nint main(void){char*s[501]={\\\\\\\"+l*31+\\\\\\\"\\\\\\\\\\\\\\\"++intercalate\\\\\\\"+l*31+\\\\\\\"\\\\\\\\\\\\\\\",\\\\\\\"+l*31+\\\\\\\"\\\\\\\\\\\\\\\"(c(tail(init(show(\\\\\\\"+l*31+\\\\\\\"\\\\\\\\\\\\\\\"/* Java */\\\\\\\"+l*32+\\\\\\\"npublic class QuineRelay{public static void main(String[]a){String[]s={\\\\\\\"+l*31+\\\\\\\"\\\\\\\\\\\\\\\"++intercalate\\\\\\\"+l*31+\\\\\\\"\\\\\\\\\\\\\\\",\\\\\\\"+l*31+\\\\\\\"\\\\\\\\\\\\\\\"(c(\\\\\\\"+l*31+\\\\\\\"\\\\\\\\\\\\\\\"brainfuck\\\\\\\"+l*64+\\\\\\\"n++++++++[>++++<-]+++++++++>>++++++++++\\\\\\\"+l*31+\\\\\\\"\\\\\\\\\\\\\\\"++(concat(snd(mapAccumL h 2(\\\\\\\"+l*31+\\\\\\\"\\\\\\\\\\\\\\\"110\\\\\\\"+l*31+\\\\\\\"\\\\\\\\\\\\\\\"++g(length s)++\\\\\\\"+l*31+\\\\\\\"\\\\\\\\\\\\\\\"22111211100111112021111102011112120012\\\\\\\"+l*31+\\\\\\\"\\\\\\\\\\\\\\\"++concatMap(\\\\\\\"+l*32+\\\\\\\"c->let d=ord c in if d<11then\\\\\\\"+l*31+\\\\\\\"\\\\\\\\\\\\\\\"21002\\\\\\\"+l*31+\\\\\\\"\\\\\\\\\\\\\\\"else\\\\\\\"+l*31+\\\\\\\"\\\\\\\\\\\\\\\"111\\\\\\\"+l*31+\\\\\\\"\\\\\\\\\\\\\\\"++g d++\\\\\\\"+l*31+\\\\\\\"\\\\\\\\\\\\\\\"22102\\\\\\\"+l*31+\\\\\\\"\\\\\\\\\\\\\\\")s++\\\\\\\"+l*31+\\\\\\\"\\\\\\\\\\\\\\\"21002111010120211222211211101000120211021120221102111000110120211202\\\\\\\"+l*31+\\\\\\\"\\\\\\\\\\\\\\\"))))))++\\\\\\\"+l*31+\\\\\\\"\\\\\\\\\\\\\\\",\\\\\\\"+l*63+\\\\\\\"\\\\\\\\\\\\\\\"\\\\\\\"+l*64+\\\\\\\"n\\\\\\\"+l*63+\\\\\\\"\\\\\\\\\\\\\\\"};int i=0;for(;i<94;i++)System.out.print(s[i]);}}\\\\\\\"+l*31+\\\\\\\"\\\\\\\\\\\\\\\")))))++\\\\\\\"+l*31+\\\\\\\"\\\\\\\\\\\\\\\",0};int i=0;for(;s[i];i++)printf(\\\\\\\"+l*63+\\\\\\\"\\\\\\\\\\\\\\\"%s\\\\\\\"+l*63+\\\\\\\"\\\\\\\\\\\\\\\",s[i]);puts(\\\\\\\"+l*63+\\\\\\\"\\\\\\\\\\\\\\\"\\\\\\\"+l*63+\\\\\\\"\\\\\\\\\\\\\\\");return 0;}\\\\\\\"+l*31+\\\\\\\"\\\\\\\\\\\\\\\");c s=map(\\\\\\\"+l*32+\\\\\\\"s->\\\\\\\"+l*31+\\\\\\\"\\\\\\\\\\\\\\\"\\\\\\\"+l*63+\\\\\\\"\\\\\\\\\\\\\\\"\\\\\\\"+l*31+\\\\\\\"\\\\\\\\\\\\\\\"++s++\\\\\\\"+l*31+\\\\\\\"\\\\\\\\\\\\\\\"\\\\\\\"+l*63+\\\\\\\"\\\\\\\\\\\\\\\"\\\\\\\"+l*31+\\\\\\\"\\\\\\\\\\\\\\\")(unfoldr t s);t[]=Nothing;t s=Just(splitAt(if length s>w&&s!!w=='\\\\\\\"+l*31+\\\\\\\"\\\\\\\\\\\\\\\"'then 501else w)s);w=500;f 0=Nothing;f x=Just((if x`mod`2>0then '0'else '1'),x`div`2);g x= reverse (unfoldr f x);h p c=let d=ord c-48in(d,replicate(abs(p-d))(if d<p then '<'else '>')++\\\\\\\"+l*31+\\\\\\\"\\\\\\\\\\\\\\\".\\\\\\\"+l*31+\\\\\\\"\\\\\\\\\\\\\\\");s=\\\\\\\"+l*31+\\\\\\\"\\\\\\\\\\\\\\\"# ruby\\\\\\\"+l*32+\\\\\\\"n\\\\\\\"+l*31+\\\\\\\"\\\\\\\\\\\\\\\"++\\\\\\\"+l*31+\\\\\\\"\\\\\\\\\\\\\\\"l=92.chr;eval s=\\\\\\\\\\\\\\\"+(z=l*31)+\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\"+s+z+\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"\\\\\\\"+l*31+\\\\\\\"\\\\\\\\\\\\\\\"++\\\\\\\"+l*31+\\\\\\\"\\\\\\\\\\\\\\\"\\\\\\\"+l*32+\\\\\\\"n\\\\\\\"+l*31+\\\\\\\"\\\\\\\\\\\\\\\"\\\\\\\"+l*15+\\\\\\\"\\\\\\\\\\\\\\\"\\\\\\\"+l*7+\\\\\\\"\\\\\\\\\\\\\\\")\\\\\\\"+l*4+\\\\\\\"n\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\")\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\")\\\\\\\\\\\\\\\"########### (c) Yusuke Endoh, 2009 ###########\\\\\\\\n\\\\\\\"\\\"++\\\"\\\\n\\\"\"")

1
2
3
4
5
6
7
8
 
local function define_view ()
        local realtime = {
                REALTIME_INDICATOR("conversations"), 
                REALTIME_INDICATOR("abandons"), 
                REALTIME_INDICATOR("waiting"),
                REALTIME_INDICATOR("average_answer_time"),
        }
 ...

1
2
t= {1,5,6}
print(t)

1
2
t= {1,5,6}
print("t")

1
print("hello!")

1
print("hello!"

1
2
3
4
5
6
local Table = {}
for i = 1, 100 do
        table.insert(Table, i)
end
table.sort(Table, function(a,b) return a > b end)
table.foreachi(Table, print)

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
--数字を文字列に変換
n = tonumber("55.5")
--文字列を数字に変換
s = tostring(99.5)
 
print(type(n))
print(type(s))

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
function func(...)
  local n = {...}
  for i =1, table.getn(n) do
    print(n[i])
  end
end
 
func(1,2,3, "test",5)

1
2
3
4
5
6
n = 0
if n then
 print("true")
else
 print("false")
end