All pastes #544232 Raw Edit

Triangle solver

public ruby v1 · immutable
·published 2007-06-06 10:59 UTC
rendered paste body
require 'count'triangle = File.open('triangle.list','r')i = 1arr = Array.newtriangle.each_line do |line|	arr[i] = line	i+=1enddata = []path = [](0..15).each do |i|	data[i] = Array.new	path[i] = Array.new	(0..15).each do |j|		data[i][j] = 0		path[i][j] = '0'	endend(0..15).each do |r|	s = arr[r]	c = 1	while c <= r do		data[c][r] = s[3*c-3,2]		c+=1	endend(0..15).each do |c|	path[c][15] = data[c][15].to_send14.downto(1){ |r|	(1..r).each do |c|		if data[c][r+1]>data[c+1][r+1] then			n = c		else			n = c+1		end		puts data[c][r]		path[c][r]=data[c][r].to_s+','+path[n][r+1]		puts data[c][r]		data[c][r] = data[c][r].to_i + data[n][r+1].to_i		puts path[c][r]	end}puts data[1][1]puts path[1][1]