Quick warmup.r

input <- scan("day1Input.txt") # each line is an integer.
sum <- 0
results <- c()
flag <- FALSE
while(flag == FALSE){
for(line in input){
   sum = sum + line 
   if(sum %in% results){ # If we find a duplicate sum print it. 
       print(sum)
       flag <- TRUE
       break
   }
   results <- c(results,sum)   # Keep track of past sums
}
}