|
|
Line 252: |
Line 252: |
|
=={{header|Julia}}== |
|
=={{header|Julia}}== |
|
{{trans|Perl 6}} |
|
{{trans|Perl 6}} |
|
|
<lang julia>const pat1 = (" ## #", " ## #", " # ##", " #### #", " # ##", |
⚫ |
<lang julia>function decodeUPC(line) |
|
|
pat1 = (" ## #", " ## #", " # ##", " #### #", " # ##", |
|
" ## #", " # ####", " ### ##", " ## ###", " # ##") |
|
" ## #", " # ####", " ### ##", " ## ###", " # ##") |
|
const pat2 = [replace(x, r"[# ]" => (x) -> x == " " ? "#" : " ") for x in pat1] |
|
pat2 = [replace(x, r"[# ]" => (x) -> x == " " ? "#" : " ") for x in pat1] |
|
const ptod1 = Dict((b => a - 1) for (a, b) in enumerate(pat1)) |
|
⚫ |
const ptod2 = Dict((b => a - 1) for (a, b) in enumerate(pat2)) |
|
|
|
|
⚫ |
const reg = Regex("^\\s*# #\\s*((?:" * join(pat1, "|") * |
|
ptod1 = Dict((b => a - 1) for (a, b) in enumerate(pat1)) |
|
|
⚫ |
"){6})\\s*# #\\s*((?:" * join(pat2, "|") * "){6})\\s*# #\\s*") |
⚫ |
ptod2 = Dict((b => a - 1) for (a, b) in enumerate(pat2)) |
|
|
⚫ |
|
|
|
|
|
⚫ |
" # # # ## # ## # ## ### ## ### ## #### # # # ## ## # # ## ## ### # ## ## ### # # # ", |
⚫ |
reg = Regex("^\\s*# #\\s*((?:" * join(pat1, "|") * |
|
|
⚫ |
" # # # ## ## # #### # # ## # ## # ## # # # ### # ### ## ## ### # # ### ### # # # ", |
⚫ |
"){6})\\s*# #\\s*((?:" * join(pat2, "|") * "){6})\\s*# #\\s*") |
|
|
⚫ |
" # # # # # ### # # # # # # # # # # ## # ## # ## # ## # # #### ### ## # # ", |
|
⚫ |
" # # ## ## ## ## # # # # ### # ## ## # # # ## ## # ### ## ## # # #### ## # # # ", |
|
⚫ |
" # # ### ## # ## ## ### ## # ## # # ## # # ### # ## ## # # ### # ## ## # # # ", |
|
⚫ |
" # # # # ## ## # # # # ## ## # # # # # #### # ## # #### #### # # ## # #### # # ", |
|
⚫ |
" # # # ## ## # # ## ## # ### ## ## # # # # # # # # ### # # ### # # # # # ", |
|
⚫ |
" # # # # ## ## # # ## ## ### # # # # # ### ## ## ### ## ### ### ## # ## ### ## # # ", |
|
⚫ |
" # # ### ## ## # # #### # ## # #### # #### # # # # # ### # # ### # # # ### # # # ", |
|
⚫ |
" # # # #### ## # #### # # ## ## ### #### # # # # ### # ### ### # # ### # # # ### # # ", |
|
⚫ |
|
|
|
|
|
|
⚫ |
|
|
if (m = match(reg, line)) != nothing |
|
if (m = match(reg, line)) != nothing |
|
mats, dig, dsum = filter(!isempty, m.captures), Int[], 0 |
|
mats, dig = filter(!isempty, m.captures), Int[] |
|
for mat in mats |
|
for mat in mats |
|
append!(dig, [ptod1[x.match] for x in eachmatch(r"(.......)", mat) |
|
append!(dig, [ptod1[x.match] for x in eachmatch(r"(.......)", mat) |
Line 271: |
Line 281: |
|
if haskey(ptod2, x.match)]) |
|
if haskey(ptod2, x.match)]) |
|
end |
|
end |
|
dsum += sum([(isodd(i) ? 3 : 1) * n for (i, n) in enumerate(dig)]) |
|
dsum = sum([(isodd(i) ? 3 : 1) * n for (i, n) in enumerate(dig)]) |
|
(dsum % 10 == 0) && return prod(string.(dig)) |
|
(dsum % 10 == 0) && return prod(string.(dig)) |
|
end |
|
end |
|
|
|
|
return "" |
|
return "" |
|
end |
|
end |
|
|
|
⚫ |
|
|
⚫ |
" # # # ## # ## # ## ### ## ### ## #### # # # ## ## # # ## ## ### # ## ## ### # # # ", |
|
⚫ |
" # # # ## ## # #### # # ## # ## # ## # # # ### # ### ## ## ### # # ### ### # # # ", |
|
⚫ |
" # # # # # ### # # # # # # # # # # ## # ## # ## # ## # # #### ### ## # # ", |
|
⚫ |
" # # ## ## ## ## # # # # ### # ## ## # # # ## ## # ### ## ## # # #### ## # # # ", |
|
⚫ |
" # # ### ## # ## ## ### ## # ## # # ## # # ### # ## ## # # ### # ## ## # # # ", |
|
⚫ |
" # # # # ## ## # # # # ## ## # # # # # #### # ## # #### #### # # ## # #### # # ", |
|
⚫ |
" # # # ## ## # # ## ## # ### ## ## # # # # # # # # ### # # ### # # # # # ", |
|
⚫ |
" # # # # ## ## # # ## ## ### # # # # # ### ## ## ### ## ### ### ## # ## ### ## # # ", |
|
⚫ |
" # # ### ## ## # # #### # ## # #### # #### # # # # # ### # # ### # # # ### # # # ", |
|
⚫ |
" # # # #### ## # #### # # ## ## ### #### # # # # ### # ### ### # # ### # # # ### # # ", |
|
⚫ |
|
|
|
|
|
|
|
for line in lines |
|
for line in lines |