Please note, this is a STATIC archive of website www.tutorialspoint.com from 11 May 2019, cach3.com does not collect or store any user information, there is no "phishing" involved.
math.randomseed( os.time() )
local code = "code"
local poetry = "poetry"
local function sometimes( arg1, modifier, arg2 )
local output = "sometimes " .. arg1 .. " " .. modifier
if type( arg2 ) == "string" then
output = output .. " " .. arg2
end
if modifier == "is" then
if math.random( 0, 1 ) == 1 then
code = arg2
end
elseif modifier == "isn't" then
io.write( "\n" )
end
print( output )
end
local it
local is = { made = {} }
function is.made.with( arg )
print( "it is made with " .. arg .. "\n" )
end
local isMetatable = {}
function isMetatable.__call( index, ... )
local arg = ...
print( "simplicity is " .. tostring( arg ) )
code = function( ... )
print( "code " .. table.concat( { ... }, " " ) )
io.write( "\n" )
end
return "simplicity"
end
setmetatable( is, isMetatable )
local simplicity
local function isReused( arg )
return "is reused " .. arg
end
local function ironically( text )
print( "ironically" )
print( text )
end
local run = load
local function we( arg )
if type( arg ) == "function" then
arg()
return true
elseif type( arg ) == "string" then
print( "we " .. arg )
end
end
local something = "something"
local function get( arg )
return "get " .. tostring( arg )
end
local runNext
local function pretty()
runNext = function()
io.write( "\n" )
print( "this hides its meaning, like poetry often does" )
print( "but there is no ambiguity to the computer" )
end
return "pretty"
end
local function but( ... )
print( "but " .. table.concat( { ... }, " " ) )
runNext()
end
local function readPoem( name, author )
print( name .. " by " .. author )
io.write( "\n" )
local poem = _G[ name ]
if type( poem ) == "function" then
poem()
end
end
function codeAsPoetry()
sometimes( code, "is", poetry )
if code == poetry then
it = is.made.with( "restraint" )
simplicity = is( "valued" )
code( isReused( "to achieve" ), simplicity )
ironically( "this program, I would argue, is not poetic" )
else
sometimes( "it", "isn't" )
-- I wouldn't call this poetry
local this = "\112\114\105\110\116\040\034\092\110\073\032\119\111\117\108\100\110\039\116\032\099\097\108\108\032\116\104\105\115\032\112\111\101\116\114\121\092\110\034\041\059\112\114\105\110\116\040\034\116\104\105\115\032\105\115\032\109\101\115\115\121\034\041\059\112\114\105\110\116\040\034\092\116\111\118\101\114\045\099\111\109\112\108\105\099\097\116\101\100\034\041\059\112\114\105\110\116\040\034\092\110\092\116\092\116\121\101\116\032\111\098\115\099\117\114\101\100\092\110\034\041"
if we( run( this ) ) then
we( get( something ) .. " out" )
end
but( "it", "isn't", pretty() )
-- this hides its meaning, like poetry often does
-- but there is no ambiguity to the computer
end
end
readPoem( "codeAsPoetry", "Julian Montague" )
local srch = "Бич"
local result = nil
local nms = {
"Андрий",
"Бич",
"Арконтий",
"Клеха"
}
for i = 1, #nms do
if nms[i] == srch then
result = srch
end
end
print(result)
