-
Notifications
You must be signed in to change notification settings - Fork 1
/
rnrr.rb
83 lines (65 loc) · 1.63 KB
/
rnrr.rb
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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
require 'bitset'
module Rnrr
DATA_SIZE = 60
CHAR_SIZE = 5
RNRR_BASE_32 = %w(B C D F G H J K L M N P Q R S T V W X Y Z 0 1 2 3 4 5 6 7 8 9 !).freeze
BIG_ENDIAN = true
def decode(str)
str = str.gsub(/\s/, '')[0..11]
bitset = Bitset.new(DATA_SIZE)
str.chars.each_with_index do |char, index|
bits = RNRR_BASE_32.index(char)
CHAR_SIZE.times do |i|
if BIG_ENDIAN
bit = (bits & (2 ** (CHAR_SIZE - i - 1))) != 0
else
bit = (bits & (2 ** i)) != 0
end
bitset[index * 5 + i] = bit
end
end
bitset
end
def bit_string(str)
decode(str).map { |bit| bit ? 1 : 0 }
end
def debug(str)
pretty_print(bit_string(str))
end
def pretty_print(bits)
bits.each_slice(5).map { |bits| bits.join }.each_slice(2).map { |chunk| chunk.join(' ') }.each_slice(2).map { |chunk| chunk.join(' ') }.join(' ')
end
def compare(raw_lines)
orig_lines = raw_lines.map { |str| bit_string(str) }
lines = orig_lines.map(&:dup)
columns = lines.first.zip(*lines[1..-1])
columns.each_with_index do |col, index|
if col.uniq.length == 1
lines.each do |line|
line[index] = '_'
end
end
end
orig_lines.each_with_index do |line, index|
puts " #{raw_lines[index]}\t\t#{pretty_print(line)}\t\t#{pretty_print(lines[index])}\t\t#{line.join}"
end
end
end
include Rnrr
chunk = []
loop do
gets
break if $_.nil?
next if $_ =~ /\A#/
if $_.chomp.empty?
puts
compare(chunk) unless chunk.empty?
chunk = []
else
chunk << $_.chomp
end
end
unless chunk.empty?
puts
compare(chunk)
end