estebanz01

// Example program
#include <iostream>
#include <string>

using namespace std;

class Leave {
    public:
        int data;
        Leave* left;

estebanz01

// Example program
#include <iostream>
#include <string>

using namespace std;

class Elemento {
    public:
        int dato;
        Elemento* siguiente;

estebanz01

// Example program
#include <iostream>
#include <string>

using namespace std;

class Elemento {
    public:
        int dato;
        Elemento* siguiente;

estebanz01

// Example program
#include <iostream>
#include <vector>
#include <string>

using namespace std;

class Node {
    public:
        int data;

estebanz01

// Example program
#include <iostream>
#include <vector>
#include <string>

using namespace std;

class Node {
    public:
        int data;

estebanz01

splitdf <- function(dataframe, seed=NULL) {
    if (!is.null(seed)) set.seed(seed)
    index <- 1:nrow(dataframe)
    trainindex <- sample(index, trunc(length(index)/2))
    trainset <- dataframe[trainindex, ]
    testset <- dataframe[-trainindex, ]
    list(trainset=trainset,testset=testset)
}

#Source of this function: http://www.gettinggeneticsdone.com/2011/02/split-data-frame-into-testing-and.html

estebanz01

require 'benchmark'

arr = 1_000.times.map { (1..100).to_a }

Benchmark.bm 10 do |x|
  x.report('#concat') { arr.each_with_object([]) { |x, memo| memo.concat([1001]) } }
  x.report('#flat_map') { arr.flat_map { |x| x << [1001] } }
end