Dessinez un triangle phi

11

Clarification: Fondamentalement, vous devez faire ceci

La fonction de totient d'Euler porte le nom de phi.

Essayons de calculer phi (8)

D'abord, listez tous les numéros 8 et moins en arrière, sans inclure 0 ou moins

8
7
6
5
4
3
2
1

Maintenant, trouvez les nombres qui ne partagent pas un facteur avec 8 (1 ne compte pas) et placez un #à leur place.

8
#
6
#
4
#
2
#

Supprimez les chiffres.

#

#

#

#
                                                 -

Maintenant, faites cela, mais enchaînez les sorties dans un triangle

        9
       88
      777
     6666
    55555
   444444
  3333333
 22222222
111111111
---------
123456789

# sur les numéros de partage sans facteur

        9
       8#
      7##
     6#66
    5####
   4#4#4#
  3##3##3
 2#2#2#2#
#########

Supprimer des numéros:

        #
       ##
      #
     ####
    # # #
   ## ## 
  # # # #
#########

Ce serait la sortie pour l'entrée 9 (depuis 9 colonnes.)

Les nouvelles lignes de début et de fin sont autorisées.

Martin Ender
la source
Clarification nécessaire.
4
si vous avez besoin de clarifier, essayez d'abord le bac à sable.
Rɪᴋᴇʀ
puis-je sortir comme une liste de lignes?
Maltysen
Nouvelle ligne principale autorisée?
Luis Mendo

Réponses:

7

MATL , 17 15 octets

:Gq:!Zd1=RP35*c

Essayez-le en ligne!

Si une nouvelle ligne principale est acceptable: 13 octets :

:t!Zd1=RP35*c

Explication

:     % Take input N. Generate row vector [1 2 ... N]
Gq:   % Row vector [1 2 ... N-1].
      % (In the 13-byte version this is replaced by function `t`, which duplicates
      % the array [1 2 ... N])
!     % Transpose into column vector
Zd    % GCD, element-wise with broadcast. Gives (N-1)×N matrix
1=    % True for entries that equal 1, corresponding to relatively prime pairs.
      % The rest of entries are set to false, i.e. 0.
R     % Upper triangular part: set values below diagonal to 0
P     % Flip matrix vertically
35*   % Multiply each entry by 35 (ASCII for '#')
c     % Convert to char. 0 will be displayed as a space. Implicitly display
Luis Mendo
la source
char(0)
Bonne
@Suever Cela s'avère très utile!
Luis Mendo
3

Gelée, 20 18 octets

RR⁶”#g’¥?€"Rz⁶U'j⁷

Essayez-le en ligne!

Leaky Nun
la source
3

Pyth - 22 octets

Va essayer de jouer au golf plus loin.

j_.tmsm@"# "n1idkSdSQd

Essayez-le en ligne ici .

Maltysen
la source
Je l'ai fait en 20 octets.
Leaky Nun
Eh bien ... 21 octets.
Leaky Nun
2

JavaScript (ES6), 112 octets

n=>[...s=` `.repeat(n)].map(_=>s.replace(/./g,_=>`# `[+g(n+1,i++)],n-=i=1),g=(i,j)=>i?i>j||g(j%i,i):j>1).join`\n`

\nreprésente le caractère de nouvelle ligne littéral. Solution alternative, également 112 octets:

n=>(s=`# `.repeat(n)).replace(r=/../g,_=>s.replace(r,m=>m[+g(n+1,i++)],n-=i=1)+`
`,g=(i,j)=>i?i>j||g(j%i,i):j>1)
Neil
la source
1

Java, 162 158 octets

int g(int a,int b){return a<1?b:g(b%a,a);}
String d(int n){String r="";for(int i=0;i<n;i++){for(int j=1;j<=n;)r+=i+j<n|g(n-i,j++)>1?" ":"#";r+="\n";}return r;}

Programme complet (non mis à jour)

import java.util.Scanner;

public class Q79082 {
    int gcd_ungolfed(int a,int b){
        if(a==0) return b;
        return gcd_ungolfed(b%a,a);
    }
    void draw_ungolfed(int n){
        for(int i=1;i<=n;i++){
            for(int j=1;j<=n;j++){
                if(i+j<=n || gcd_ungolfed(n+1-i,j)!=1){
                    System.out.print(" ");
                }else{
                    System.out.print("#");
                }
            }
            System.out.println();
        }
    }
    int g(int a,int b){return a<1?b:g(b%a,a);}
    String d(int n){String r="";for(int i=0;i<n;i++){for(int j=1;j<=n;j++)r+=(i+j<n||g(n-i,j)>1)?" ":"#";r+="\n";}return r;}
    public static void main(String args[]){
        Scanner sc = new Scanner(System.in);
        int n = sc.nextInt();
        sc.close();
        new Q79082().draw_ungolfed(n);
        System.out.println(new Q79082().d(n));
    }
}

Entrée sortie:

9

        #
       ##
      #  
     ####
    # # #
   ## ## 
  # # # #
#########

        #
       ##
      #  
     ####
    # # #
   ## ## 
  # # # #
#########
Leaky Nun
la source
Faites le raccourci ou dans un seul canal, puis mettez i ++ et j ++ dans l'appel à g. Économise 3 octets. De plus, vous n'avez pas besoin des parens dans le trinaire en d. 2 octets supplémentaires
Blue
i ++ ne fonctionnera pas car imbriqué.
Leaky Nun
1

SQL (PostGreSQL9.4), 239 291 octets

Crée une instruction préparée qui peut être exécutée. Je suis sûr que je peux probablement en retirer quelques octets, mais je devrai y revenir plus tard. Un croisement se joint-il sur une plage de 1 à n. Calcule le GCD dans une jointure latérale. Lorsque le GCD est 1 et que la série A est supérieure à la série B, affichez un «#» sinon un espace. Agréger les résultats dans une chaîne regroupée par série B.

prepare p(int)as
select string_agg(coalesce(CASE WHEN b<=a AND x=1THEN'#'END,' '),'')from generate_series(1,$1)a,generate_series(1,$1)b,LATERAL(SELECT MAX(G)x FROM generate_series(1,LEAST(a,b))g WHERE a%g+b%g=0)g
group by b
order by b desc

Exécutez de la manière suivante

execute p(13)

string_agg
----------------

            #
           ##
          # #
         ## #
        # # #
       ######
      #   # #
     #### ###
    # # # # #
   ## ## ## #
  # # # # # #
#############

Et nettoyé avec

deallocate p
MickyT
la source
0

Rubis, 84 octets

->n{s=[];n.times{|i|j=0;m=n-i;s<<(?#*n).gsub(/./){m.gcd(j+=1)>1||m>j ?' ':$&}};s*$/}
Encre de valeur
la source
0

Python 2 (120 octets)

g=lambda m,n:m if n<1 else g(n,m%n)
r=range(input())
for i in r[:0:-1]:print''.join('# '[i>j+1 or g(i,j+1)>1]for j in r)
TFeld
la source