Skip to content
Prev 286067 / 398502 Next

Challenge

On 22-02-2012, at 13:49, Silvano wrote:

            
I hope this isn't homework.

library(gtools)
val <- c(1,2,3,5,6,10,15,30)
x.vals <- permutations(n=length(val),r=7,v=val)
f <- function(x) x[1]+x[2]+x[3]-2*(x[4]+x[5]+x[6])+3*x[7]

fun.vals <- apply(x.vals,1, function(z) f(z))

minidx <- which.min(fun.vals)
fun.vals[minidx] 
x.vals[minidx,]
f(x.vals[minidx,])

Berend Hasselman