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)

1
2
3
4
5
6
7
8
9
begin 644 webutils_pl
M8F5G:6X@-C0T(&EN9F\R+FAT;6P-"DTO(UU8.S900#U&-5(\5D5/.T-40BPR
M6%`H0F!?+T)@0")#4$$Q)%TC-25%,#$R(4@])E5,*"4A-3!$42D-"DTP4F!"
M*S)<3S53+2,K4ETD-20P0#8D030S-%!`+#)84"@E,5(X-EE3.C<Q23M664$[
M(EQ/,3180B)"8$(-"DTZ)S%4/"-(3RM7/5<]4EE7+%)93SQ&/$\U)2A//B9!
M5#LV4%$K5#$T,2)=6#HG,4T[(R1-/2<I03M'+4D-"DT])D5/.T8E3"M&,50Y
M(BA>(D!(0"@B8"DH8$1`(D)@0"A@1$`H8$0I(C!(7#HG,4T[(B%8.S913CQ3
M5$(-"DTZ)S%4/"-(3RM7/5<]4EE7+%)93SQ&/$\L,T19+C)=6#HG,4T[(BA>
M+R9!13@V,%XH(F!`(C!$*2@B8"D-"DTB0U%4.C<Q3#DS62<Y-EU#.#8M2#DR
 ...

1
2
print(false and nil)
print(nil and false)

1
print(false and 'y')

1
2
local a = "123ыыыÀ私";
print(a);

1
2
local a = "123ыыыÀ";
print(a);

1
2
local a = "123ыыы";
print(a);

1
2
local a = "123";
print(a);

1
2
3
4
5
6
7
8
9
function say(...)
        local arg = {...}
        for i = 1, #arg do
                local str = tostring(arg[i])
                if str then print(str) end
        end
end
 
say('auhdsihaidh', nil, 23, type('auhdsihaidh'), type(nil), type(23))

1
2
3
4
5
6
7
8
9
function say(...)
        local arg = {...}
        for i = 1, #arg do
                local str = tostring(arg[i])
                if str then print(str) end
        end
end
 
say('auhdsihaidh', nil, 23)

1
2
3
4
5
6
7
8
9
function say(...)
        local arg = {...}
        for _,j in ipairs(arg) do
                local str = tostring(j)
                if str then print(str) end
        end
end
 
say('auhdsihaidh')
 ...

1
2
3
4
5
6
7
8
9
function say(...)
        local arg = {...}
        for _,j in ipairs(arg) do
                local str = tostring(j)
                if str then print(str) end
        end
end
 
say('laosdaok', nil, 23)

1
lau

1
2
3
4
5
6
7
8
9
// Namespace Declaration
using System;
 
// Program start class
class NamedWelcome
{
    // Main begins program execution.
    static void Main(string[] args)
    {
 ...

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, n do
                                res = res * i
                        end
                        return res
                else
 ...

1
2
3
4
5
6
7
local read, write = io.read, io.write
local num, nl = '*n', ""
while nl do
  local a = read(num)
  if a == 42 then return end
  write(a, nl)
end

1
2
3
4
5
6
7
local read, write = io.read, io.write
local num, nl = '*n', '\n'
while 0 do
  local a = read(num)
  if a == 42 then return end
  write(a, nl)
end

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
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
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
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
;;Solution to facebook hacker cup Billboard brain teaser.
;;author: sea <http://sea4ever.users.sourceforge.net>
;; This program is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
 
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
 ...

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
 ...