Phi üçgeni çiz


11

Açıklama: Temel olarak, yapmanız gereken bu

Euler'nin totient fonksiyonunun adı phi'dir.

Phi'yi hesaplamaya çalışalım (8)

İlk olarak, 0 veya altı hariç, 8 ve altındaki tüm sayıları listeleyin

8
7
6
5
4
3
2
1

Şimdi hangi sayıların 8 ile bir faktörü paylaşmadığını (1 sayılmaz) bulun ve yerine a #yerleştirin.

8
#
6
#
4
#
2
#

Numaraları kaldırın.

#

#

#

#
                                                 -

Şimdi bunu yapın, ancak çıktıları bir üçgende birleştirin

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

# faktör dışı paylaşım sayıları

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

Numaraları kaldır:

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

Bu, giriş 9 için çıkış olacaktır (9 sütundan beri).

Öncü + sondaki yeni satırlara izin verilir.


Açıklama gerekiyor.

4
açıklığa kavuşturmanız gerekirse önce korumalı alanı deneyin.
Rɪᴋᴇʀ

satır listesi olarak çıktı alabilir miyim?
Maltysen

Öncü yeni satıra izin veriliyor mu?
Luis Mendo

Yanıtlar:


7

MATL , 17 15 bayt

:Gq:!Zd1=RP35*c

Çevrimiçi deneyin!

Öncü bir yeni satır kabul edilebilirse: 13 bayt :

:t!Zd1=RP35*c

açıklama

:     % 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

Güzel kullanım char(0):)
Suever

@Suever Çok faydalı olduğu ortaya çıktı!
Luis Mendo



2

JavaScript (ES6), 112 bayt

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`

Burada \ngerçek satırsonu karakterini temsil eder. Alternatif çözüm, ayrıca 112 bayt:

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)

1

Java, 162158 bayt

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

Tam program (güncellenmedi)

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

Giriş çıkış:

9

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

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

Kısayolu veya tek bir boruya yapın, sonra g çağrısına i ++ ve j ++ koyun. 3 bayt tasarruf sağlar. Ayrıca, d. 2 bayt daha
Blue

i ++ iç içe geçmediği için çalışmaz.
Leaky Nun

1

SQL (PostGreSQL9.4), 239 291 bayt

Yürütülebilecek hazır bir ifade oluşturur. Eminim bundan birkaç bayt alabilirim, ancak daha sonra onu almak zorunda kalacağım. 1 ila n aralığında bir çapraz birleşim yapar. Yanal birleşme halinde GCD'yi hesaplar. GCD'nin 1 ve A serisinin B serisinden daha büyük olduğu yerlerde '#' aksi takdirde bir boşluk çıkar. Sonuçları B serisine göre gruplandırılmış bir dizeye toplayın.

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

Aşağıdaki şekilde çalıştırın

execute p(13)

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

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

Ve temizlendi

deallocate p

0

Ruby, 84 bayt

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

0

Python 2 (120 bayt)

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)
Sitemizi kullandığınızda şunları okuyup anladığınızı kabul etmiş olursunuz: Çerez Politikası ve Gizlilik Politikası.
Licensed under cc by-sa 3.0 with attribution required.