Masterwork From Distant Lands
No One
Actions

Authored By

	dereckson
	Jun 18 2015, 04:31

Size

617 B

Referenced Files

None

Subscribers

None

Masterwork From Distant Lands
View Options

	set fd [open code.txt r]
	set code [gets $fd]
	close $fd

	proc bin2dec {bin} {
	if {$bin == 0} {
	return 0
	} elseif {[string match -* $bin]} {
	set sign -
	set bin [string range $bin 1 end]
	} else {
	set sign {}
	}
	if {[string map [list 1 {} 0 {}] $bin] ne {}} {
	error "argument is not in base 2: $bin"
	}
	set r 0
	foreach d [split $bin {}] {
	incr r $r
	incr r $d
	}
	return $sign$r
	}

	for {set i 0} {$i < 100} {incr i} {
	set start [expr $i * 8]
	puts -nonewline [format %c [bin2dec [string range $code $start [expr $start+7]]]]
	}