25 novembre 2016

4 messages - Retourner à l'article

Voir tous les messages - Retourner à l'article

  • Novembre 2016, 4e défi

    le 25 novembre 2016 à 08:04, par zgreudz

    Sans aucune reflexion ni discernement je l’ai fait avec Mathematica :

    list = -7, -5, -3, -2, 2, 4, 6, 13

    Sous ensembles de la liste avec exactement 4 elements
    L = Subsets[list, 4] ;
    Sous ensembles complementaires :
    M = Complement[#] & /@ L ;
    Calcul de la somme de (a+b+c+d)² + (e+f+g+h)²
    S = (# [1] + # [2]) & /@
    Transpose[(Total[#])^2 & /@ L, (Total[#])^2 & /@ M]

    Valeur Minimale :
    Min[S]
    34
    Recherche des candidats
    p = Position[S, Min[S]]
    12, 14, 22, 32, 39, 49, 57, 59
    Affichage
    L [3] & /@ p, M [4] & /@ p // Transpose // TableForm

    -7, -5, 2, 13, -3, -2, 4, 6

    -7, -5, 4, 13, -3, -2, 2, 6

    -7, -3, 2, 13, -5, -2, 4, 6

    -7, 2, 4, 6, -5, -3, -2, 13

    -5, -3, -2, 13, -7, 2, 4, 6

    -5, -2, 4, 6, -7, -3, 2, 13

    -3, -2, 2, 6, -7, -5, 4, 13

    -3, -2, 4, 6, -7, -5, 2, 13

    Desole pour les renvois de bas de page, ils viennent de l’interpretation du code en balises d’edition.

    [11

    [22

    [3#

    [4#

    Répondre à ce message
Pour participer à la discussion merci de vous identifier : Si vous n'avez pas d'identifiant, vous pouvez vous inscrire.