Hi Guillermo,
Something like this?
generateData[] := RandomVariate[NormalDistribution[1, 3], 10^4]
computeSolution[data_] := Mean[data]
Table[computeSolution[generateData[]], 10]
(* {0.98648, 1.0595, 1.03899, 0.965868, 1.0184, 1.0489, 1.03447, 1.01172, 0.97868, 1.02466} *}