Narysuj trójkąt phi

11

Wyjaśnienie: W zasadzie, trzeba zrobić to

Funkcja totulowa Eulera ma nazwę phi.

Spróbujmy obliczyć phi (8)

Najpierw wypisz wszystkie cyfry 8 i poniżej wstecz, bez 0 lub poniżej

8
7
6
5
4
3
2
1

Teraz sprawdź, które liczby nie dzielą współczynnika z 8 (1 się nie liczy), i umieść a #na ich miejscu.

8
#
6
#
4
#
2
#

Usuń liczby.

#

#

#

#
                                                 -

Teraz zrób to, ale połącz wyniki razem w trójkąt

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

# poza liczbami dzielącymi bez czynnika

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

Usuń liczby:

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

To byłby wynik dla wejścia 9 (od 9 kolumn).

Wiodące + końcowe znaki nowej linii są dozwolone.

Martin Ender
źródło
Potrzebne wyjaśnienie.
4
jeśli potrzebujesz wyjaśnienia, wypróbuj najpierw piaskownicę.
Rɪᴋᴇʀ
czy mogę wyprowadzać jako listę linii?
Maltysen
Prowadzenie nowej linii jest dozwolone?
Luis Mendo

Odpowiedzi:

7

MATL , 17 15 bajtów

:Gq:!Zd1=RP35*c

Wypróbuj online!

Jeśli wiodący nowy wiersz jest akceptowalny: 13 bajtów :

:t!Zd1=RP35*c

Wyjaśnienie

:     % 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
źródło
Miłe użycie char(0):)
Suever
@Suever Okazuje się, że jest bardzo przydatny!
Luis Mendo
3

Galaretka, 20 18 bajtów

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

Wypróbuj online!

Leaky Nun
źródło
3

Pyth - 22 bajty

Spróbuje dalej grać w golfa.

j_.tmsm@"# "n1idkSdSQd

Wypróbuj online tutaj .

Maltysen
źródło
Zrobiłem to w 20 bajtach.
Leaky Nun
Cóż .... 21 bajtów.
Leaky Nun
2

JavaScript (ES6), 112 bajtów

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`

Gdzie \nreprezentuje dosłowny znak nowej linii. Alternatywne rozwiązanie, również 112 bajtów:

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
źródło
1

Java, 162 158 bajtów

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;}

Pełny program (nie zaktualizowany)

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));
    }
}

Wejście wyjście:

9

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

        #
       ##
      #  
     ####
    # # #
   ## ## 
  # # # #
#########
Leaky Nun
źródło
Utwórz skrót lub w pojedynczym potoku, a następnie umieść i ++ i j ++ w wywołaniu g. Zaoszczędzi 3 bajty. Poza tym nie potrzebujesz parens w trójniku w d. Jeszcze 2 bajty
niebieski
i ++ nie będzie działać, ponieważ jest zagnieżdżony.
Leaky Nun
1

SQL (PostGreSQL9.4), 239 291 bajtów

Tworzy przygotowane polecenie, które można wykonać. Jestem pewien, że prawdopodobnie mogę wziąć z tego całkiem sporo bajtów, ale będę musiał to później wybrać. Czy krzyż łączy się w zakresie od 1 do n. Oblicza GCD w łączeniu bocznym. Gdy GCD wynosi 1, a seria A jest większa niż wyjście serii B, to „#” w przeciwnym razie spacja. Agreguj wyniki w ciąg zgrupowany według serii 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

Uruchom w następujący sposób

execute p(13)

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

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

I posprzątałem

deallocate p
MickyT
źródło
0

Rubinowy, 84 bajtów

->n{s=[];n.times{|i|j=0;m=n-i;s<<(?#*n).gsub(/./){m.gcd(j+=1)>1||m>j ?' ':$&}};s*$/}
Wartość tuszu
źródło
0

Python 2 (120 bajtów)

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
źródło