blob: 0a2ed88495434cda75703e654197a14b0f62d548 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
#!/usr/bin/env lua
--[[
run <script> <path to file containing arrays, one per line>
e.g. copy
I L O V E Y O U
2 4 0 3 2 0 1 9
! ? £ $ % ^ & *
to a text file
--]]
function transpose(t)
local tt={}
if #t==0 then return {} end
for j=1,#(t[1]) do
local row={}
for i=1,#t do
table.insert(row,t[i][j])
end
table.insert(tt,row)
end
return tt
end
local inpt={}
for l in io.lines(arg[1]) do
if l:match("%S") then
local row={}
for w in l:gmatch("(%S+)") do
table.insert(row,w)
end
table.insert(inpt,row)
end
end
for _,v in ipairs(transpose(inpt)) do
print(table.unpack(v))
end
|
