gistfile1.txt

function consume_chunk(vector, split, start=1){
    items = c()
    location = start
    for(item in vector[start:length(vector)]){
        items = c(items, item)
        
        location += 1
        
        if(split(item)){
            break
        }
    }
    
    list(end=location, items=items)
}

function aggregate(vector, split, func){
    
    results = c()
    
    start = 1
    while(start <= length(vector)){
        chunk = consume_chunk(vector, split, start)
        results = c(results, func(chunk$items))
        start = chunk$location
    }
    
    results
}