Posortuj unikalne liczby w tablicy mnożenia


30

Całkiem proste wyzwanie dzisiaj:

Napisz program lub funkcję, która przyjmuje dodatnią liczbę całkowitą N i wypisuje lub zwraca posortowaną listę unikatowych liczb, które pojawiają się w tablicy mnożenia, której mnożniki wierszy i kolumn mieszczą się w zakresie od 1 do N włącznie.

Lista może być sortowana w kolejności rosnącej (od najmniejszej do największej) lub malejącej (od największej do najmniejszej) i może być wyprowadzana w dowolnym rozsądnym formacie.

Najkrótszy kod w bajtach wygrywa!

Przykład

Gdy N = 4, tabliczka mnożenia wygląda następująco:

   1  2  3  4
  -----------
1| 1  2  3  4
 |
2| 2  4  6  8
 |
3| 3  6  9 12
 |
4| 4  8 12 16

Unikalne liczby w tabeli to 1, 2, 3, 4, 6, 8, 9, 12, 16. Te są już posortowane, więc

1, 2, 3, 4, 6, 8, 9, 12, 16

może być dokładnym wynikiem dla N = 4. Ale ponieważ sortowanie można odwrócić i istnieje pewna swoboda w formatowaniu, będą to również prawidłowe dane wyjściowe:

[16,12,9,8,6,4,3,2,1]
1
2
3
4
6
8
9
12
16
16 12 9 8 4 3 2 1

Przypadki testowe

N=1 -> [1]
N=2 -> [1, 2, 4]
N=3 -> [1, 2, 3, 4, 6, 9]
N=4 -> [1, 2, 3, 4, 6, 8, 9, 12, 16]
N=5 -> [1, 2, 3, 4, 5, 6, 8, 9, 10, 12, 15, 16, 20, 25]
N=6 -> [1, 2, 3, 4, 5, 6, 8, 9, 10, 12, 15, 16, 18, 20, 24, 25, 30, 36]
N=7 -> [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 14, 15, 16, 18, 20, 21, 24, 25, 28, 30, 35, 36, 42, 49]
N=8 -> [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 14, 15, 16, 18, 20, 21, 24, 25, 28, 30, 32, 35, 36, 40, 42, 48, 49, 56, 64]
N=9 -> [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 14, 15, 16, 18, 20, 21, 24, 25, 27, 28, 30, 32, 35, 36, 40, 42, 45, 48, 49, 54, 56, 63, 64, 72, 81]
N=10 -> [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 14, 15, 16, 18, 20, 21, 24, 25, 27, 28, 30, 32, 35, 36, 40, 42, 45, 48, 49, 50, 54, 56, 60, 63, 64, 70, 72, 80, 81, 90, 100]
N=11 -> [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 14, 15, 16, 18, 20, 21, 22, 24, 25, 27, 28, 30, 32, 33, 35, 36, 40, 42, 44, 45, 48, 49, 50, 54, 55, 56, 60, 63, 64, 66, 70, 72, 77, 80, 81, 88, 90, 99, 100, 110, 121]
N=12 -> [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 14, 15, 16, 18, 20, 21, 22, 24, 25, 27, 28, 30, 32, 33, 35, 36, 40, 42, 44, 45, 48, 49, 50, 54, 55, 56, 60, 63, 64, 66, 70, 72, 77, 80, 81, 84, 88, 90, 96, 99, 100, 108, 110, 120, 121, 132, 144]

Więc w zasadzie kod zwraca listę liczb w tablicy mnożenia określonej przez N, z tym wyjątkiem, że żadna liczba nie może się powtórzyć?
TanMath,

Jak duży może być N?
xsot

1
@xsot Możesz założyć, że N * N będzie mniejsze niż maksymalna zwykła wartość int twojego języka (prawdopodobnie 2 ^ 31-1)
Calvin's Hobbies

Zasadniczo więc jest to 1-n i liczby niepierwsze do n ^ 2.
gregsdennis

1
@gregsdennis Nie. Nie ma wielu kompozytów. np. 91, 92, 93, 94, 95, 96 dla N = 10.
Hobby Calvina

Odpowiedzi:


12

Pyth, 8 bajtów

S{*M^SQ2

Wypróbuj online.

Objaśnienie: SQprzyjmuje obliczoną listę input ( Q) i tworzy listę [1, 2, ..., Q]. ^SQ2zabiera ze sobą kartezjański produkt z tej listy - wszystkie możliwe kombinacje produktów. *Mmnoży wszystkie te pary razem, tworząc wszystkie możliwe wyniki w tablicy mnożenia i S{czyni ją wyjątkową i sortuje ją.


@FryAmTheEggman Input 5 już wymaga sortowania, w przeciwnym razie 10 i 9 na wyjściu nie działają.
Reto Koradi

Darn, wciąż zapominaj o tym rozpryskiwaniu się M. +1
Maltysen

13

Python 2, 61 51 bajtów

lambda n:sorted({~(i%n)*~(i/n)for i in range(n*n)})

Dzięki xnor za skrócenie składni.


1
set(...)Może być tylko zbiorem poglądowy {...}. Również funkcje są tutaj domyślnie dozwolone, więc możesz po prostu pisać lambda n:....
xnor

Dzięki za przypomnienie mi o kompletnym zrozumieniu, zupełnie zapomniałem, że istnieje.
xsot

Nie widzę lepszego sposobu, aby to zrobić, najlepiej widzę z rekurencji jest 56: f=lambda n:n*[0]and sorted(set(range(n,n*n+n,n)+f(n-1))).
xnor

11

APL, 18 16 bajtów

{y[⍋y←∪,∘.×⍨⍳⍵]}

Jest to nienazwana funkcja monadyczna. Dane wyjściowe są w porządku rosnącym.

Wyjaśnienie:

             ⍳⍵]}   ⍝ Get the integers from 1 to the input
         ∘.×⍨       ⍝ Compute the outer product of this with itself
        ,           ⍝ Flatten into an array
       ∪            ⍝ Select unique elements
     y←             ⍝ Assign to y
 {y[⍋               ⍝ Sort ascending

Naprawiono problem i zapisano 2 bajty dzięki Thomasowi Kwa!


7

CJam, 14 12 bajtów

Najnowsza wersja z ulepszeniami zaproponowanymi przez @aditsu:

{)2m*::*0^$}

To anonimowa funkcja. Wypróbuj online , z kodem wejściowym / wyjściowym potrzebnym do przetestowania.

@Martin zaproponował inne bardzo eleganckie rozwiązanie ( {,:)_ff*:|$}) o tej samej długości. Użyłem tego od aditsu, ponieważ był znacznie bardziej podobny do mojego oryginalnego rozwiązania.

Główną różnicą w stosunku do mojego oryginalnego rozwiązania jest to, że utrzymuje to 0wartość w oryginalnej sekwencji, co oszczędza 2 bajty na początku. Można by pomyśleć, że to nie pomoże, ponieważ trzeba usunąć 0wartość z wyniku. Ale sednem idei @ aditsu jest 0^koniec, co stanowi pewną różnicę 0. To usuwa 0, a jednocześnie, ponieważ jest to operacja zestawu, eliminuje duplikaty elementów z zestawu rozwiązań. Ponieważ już wcześniej potrzebowałem 2 bajtów, aby wyeliminować duplikaty, usunięcie 0jest w zasadzie darmowe.

Wyjaśnienie:

{     Start anonymous function.
  )     Increment to get N+1.
  2m*   Cartesian power, to get all pairs of numbers in range [0, N].
  ::*   Reduce all pairs with multiplication.
  0^    Remove 0, and remove duplicates at the same time since this is a set operation.
  $     Sort the list.
}     End anonymous function.

Na tej samej długości {2m*::)::*_&$},{)2m*::*_&$0-}
Peter Taylor

2
A co powiesz na dwa bajty mniej :){,:)_ff*:|$}
Martin Ender

1
Innym sposobem:{)2m*::*0^$}
aditsu


4

Julia, 24 bajty

n->sort(∪((x=1:n)*x'))

Jest to anonimowa funkcja, która przyjmuje liczbę całkowitą i zwraca tablicę liczb całkowitych.

Nie golfowany:

function f(n::Integer)
    # Construct a UnitRange from 1 to the input
    x = 1:n

    # Compute the outer product of x with itself
    o = x * transpose(x)

    # Get the unique elements, implicitly flattening
    # columnwise into an array
    u = unique(o)

    # Return the sorted output
    return sort(u)
end


4

zsh, 86 56 bajtów

dzięki @Dennis za zapisanie 30 (!) bajtów

(for a in {1..$1};for b in {1..$1};echo $[a*b])|sort -nu

Wyjaśnienie / niepoznany:

(                      # begin subshell
  for a in {1..$1}     # loop through every pair of multiplicands
    for b in {1..$1}
      echo $[a*b]      # calculate a * b, output to stdout
) | sort -nu           # pipe output of subshell to `sort -nu', sorting
                       # numerically (-n) and removing duplicates (-u for uniq)

To nie działa w Bash, ponieważ Bash nie rozwija się {1..$1}- po prostu interpretuje to dosłownie (więc a=5; echo {1..$a}wypisuje {1..5}zamiast 1 2 3 4 5).


Czekałem na odpowiedź * sh. : D
Addison Crump

1
Odpowiednia wskazówka bash. Wydaje się, że dotyczy to również powłoki Z.
Dennis


4

Rubinowy, 50 48 bajtów

->n{c=*r=1..n;r.map{|i|c|=r.map{|j|i*j}};c.sort}

Nie golfowany:

->n {
  c=*r=1..n
  r.map { |i| c|=r.map{|j|i*j} }
  c.sort
}

Użycie pętli zagnieżdżonej do pomnożenia każdej liczby z każdą inną liczbą do n, a następnie posortowanie tablicy.

50 bajtów

->n{r=1..n;r.flat_map{|i|r.map{|j|i*j}}.uniq.sort}

Stosowanie:

->n{c=*r=1..n;r.map{|i|c|=r.map{|j|i*j}};c.sort}[4]
=> [1, 2, 3, 4, 6, 8, 9, 12, 16]

3

R, 39 bajtów

cat(unique(sort(outer(n<-1:scan(),n))))

Odczytuje liczbę całkowitą ze STDIN i zapisuje listę rozdzielaną spacjami do STDOUT.

Tworzymy tabliczkę mnożenia jako macierz za pomocą outer, domyślnie spłaszczamy do wektora i sortujemy za pomocą sort, wybieramy unikatowe elementy za pomocą uniquei drukujemy przestrzeń ograniczoną za pomocą cat.




2

K, 17 bajtów

t@<t:?,/t*\:t:1+!

Nie ma tu wiele do powiedzenia. Sortuj ( t@<t:) unikalne elementy ( ?) spłaszczonego ( ,/) pomnożonego kartezjańskiego produktu własnego ( t*\:t:) od 1 do N włącznie (włącznie 1+!).

W akcji:

  t@<t:?,/t*\:t:1+!5
1 2 3 4 5 6 8 9 10 12 15 16 20 25

2

Haskell, 55 54 bajtów

import Data.List
f n=sort$nub[x*y|x<-[1..n],y<-[1..x]]

Przykład użycia: f 4-> [1,2,3,4,6,8,9,12,16].

nub usuwa zduplikowane elementy z listy.

Edycja: @Zgarb znalazł zbędne $.


2

J, 21 20 bajtów

Dzięki @Zgarb za -1 bajt!

/:~@~.@,@(1*/~@:+i.)

Moja pierwsza odpowiedź J! Wskazówki dotyczące gry w golfa są mile widziane, jeśli jest coś do gry w golfa.

To jest funkcja monadyczna; bierzemy zewnętrzny produkt przez pomnożenie listy 1..inputz samym sobą, spłaszczamy, bierzemy unikalne elementy i sortujemy.


2

Kotlin, 70 bajtów

val a={i:Int->(1..i).flatMap{(1..i).map{j->it*j}}.distinct().sorted()}

Wersja bez golfa:

val a: (Int) -> List<Int> = { 
    i -> (1..i).flatMap{ j -> (1..i).map{ k -> j * k } }.distinct().sorted()
}

Przetestuj za pomocą:

fun main(args: Array<String>) {
    for(i in 1..12) {
        println(a(i))
    }
}

2

Shell + wspólne narzędzia, 41

seq -f"seq -f%g*%%g $1" $1|sh|bc|sort -nu

Lub alternatywnie:

Bash + coreutils, 48

eval printf '%s\\n' \$[{1..$1}*{1..$1}]|sort -nu

Konstruuje rozwinięcie nawiasu wewnątrz rozszerzenia arytmetycznego:

\$[{1..n}*{1..n}]rozwija się do rozszerzeń arytmetycznych, $[1*1] $[1*2] ... $[1*n] ... $[n*n]które są oceniane i przekazywane printf, które drukuje jeden na linię, do której jest przesyłany potokowo sort.

Ostrożne korzystanie z cytatów, ucieczek i evalzapewnienie, że rozszerzenia pojawią się w wymaganej kolejności.


Lub alternatywnie:

Pure Bash, 60

eval a=($(eval echo [\$[{1..$1}*{1..$1}\]]=1))
echo ${!a[@]}


1

Minkolang 0,14 , 25 22 18 bajtów

Pamiętałem, że bardzo wygodnie wdrożyłem produkty kartezjańskie przed opublikowaniem tego pytania !

1nLI20P[x*1R]sS$N.

Wypróbuj tutaj. (Wyjścia w odwrotnej kolejności.)

Wyjaśnienie

1                     Push a 1 onto the stack
 n                    Take number from input (n)
  L                   Pushes 1,2,...,n onto the stack
   I                  Pushes length of stack so 0P knows how many items to pop
    2                 Pushes 2 (the number of repeats)
     0P               Essentially does itertools.product(range(1,n+1), 2)
       [              Open for loop that repeats n^2 times (0P puts this on the stack)
        x             Dump (I know each product has exactly two numbers
         *            Multiply
          1R          Rotate 1 step to the right
            ]         Close for loop
             s        Sort
              S       Remove duplicates ("set")
               $N.    Output whole stack as numbers and stop.

1

JavaScript (ES6), 92 90 bajtów

n=>eval(`for(r=[],a=n;a;a--)for(b=n;b;)~r.indexOf(x=a*b--)||r.push(x);r.sort((a,b)=>a-b)`)

Wyjaśnienie

n=>eval(`                 // use eval to remove need for return keyword
  for(r=[],a=n;a;a--)     // iterate for each number a
    for(b=n;b;)           // iterate for each number b
      ~r.indexOf(x=a*b--) // check if it is already in the list, x = value
      ||r.push(x);        // add the result
  r.sort((a,b)=>a-b)      // sort the results by ascending value
                          // implicit: return r
`)

Test

N = <input type="number" oninput="result.innerHTML=(

n=>eval(`for(r=[],a=n;a;a--)for(b=n;b;)~r.indexOf(x=a*b--)||r.push(x);r.sort((a,b)=>a-b)`)

)(+this.value)" /><pre id="result"></pre>


1

Perl 6 , 27 bajtów

{squish sort 1..$_ X*1..$_} # 27
{unique sort 1..$_ X*1..$_} # 27
{sort unique 1..$_ X*1..$_} # 27

Przykładowe użycie:

say {squish sort 1..$_ X*1..$_}(3); # (1 2 3 4 6 9)␤

my $code = {squish sort 1..$_ X*1..$_}

for 1..100 -> \N { say $code(N) }

my &code = $code;

say code 4; # (1 2 3 4 6 8 9 12 16)␤

1

Haskell, 51 bajtów

f n=[i|i<-[1..n*n],elem i[a*b|a<-[1..n],b<-[1..n]]]

Strasznie nudne. Tylko filtruje listę [1..n*n]do elementów postaci a*bz ai bw [1..n]. Używanie filterdaje tę samą długość

f n=filter(`elem`[a*b|a<-[1..n],b<-[1..n]])[1..n*n]

Przez jakiś czas próbowałem wygenerować listę produktów z czymś bardziej sprytnym, takim jak concatMaplub mapM, ale uzyskałem tylko dłuższe wyniki. Bardziej wyrafinowana kontrola członkostwa pojawiła się przy 52 bajtach, 1 bajt dłużej, ale być może można ją skrócić.

f n=[k|k<-[1..n*n],any(\a->k`mod`a<1&&k<=n*a)[1..n]]

Można zapisać 3 bajty za pomocą (*)<$>..<*>..jak ten
ბიმო

1

JAVA - 86 bajtów

Set a(int a){Set s=new TreeSet();for(;a>0;a--)for(int b=a;b>0;)s.add(a*b--);return s;}

Bez golfa

Set a(int a){
    Set s = new TreeSet();
    for (;a>0;a--){
        for(int b = a;b>0;){
            s.add(a*b--);
        }
    }
    return s;
}

1

Pyth, 11 bajtów

S{sm*RdSdSQ

Jest to podobne do odpowiedzi Julii. Dzięki @Maltysen


1

PHP, 74,73 70 bajtów

while($i++<$j=$n)while($j)$a[]=$i*$j--;$a=array_unique($a);sort($a);

print_r($a); // Not counted, but to verify the result

Nie golfowany:

while($i++<$j=$n)
    while($j)
        $a[]=$i*$j--;

Poprzedni:

while(($j=$i++)<$n)for(;$j++<$n;)$a[]=$i*$j;$a=array_unique($a);sort($a);

Nie 100% pewności, co zrobić $az danymi wyjściowymi, ale zawiera tablicę z odpowiednimi liczbami. $nto numer, za pomocą którego $_GET['n'],register_globals=1


1

TeaScript , 37 35 znaków; 40 bajtów

Zaoszczędzono 2 bajty dzięki @Downgoat

TeaScript to JavaScript do gry w golfa.

(b+r(1,+x¬)ßam(z=>z*l±s`,`.u¡s»l-i)

Wypróbuj online!

Bez golfa i wyjaśnienia

(b+r(1,+x+1)m(#am(z=>z*l)))s(',').u()s(#l-i)
              // Implicit: x = input number
r(1,+x+1)     // Generate a range of integers from 1 to x.
m(#           // Map each item "l" in this range "a" to:
 am(z=>       //  a, with each item "z" mapped to
  z*l))       //   z * l.
(b+      )    // Parse this as a string by adding it to an empty string.
s(',')        // Split the string at commas, flattening the list.
.u()          // Take only the unique items from the result.
s(#l-i)       // Sort by subtraction; the default sort sorts 10, 12, 100, etc. before 2.
              // Implicit: output last expression

Możesz po prostu użyć rzamiast A.rdo generowania zakresów
Downgoat

Jasne, że to 35 bajtów ? Dostaję 35 znaków lub 40 bajtów.
manatwork

@manatwork To byłoby 35 bajtów w formacie kodowania ISO / IEC_8859-1 . Ale nie jestem pewien, czy TeaScript obsługuje to kodowanie, więc na razie zmienię go na 40 bajtów.
ETHproductions

0

C, 96 bajtów

i,a[1<<16];main(n){for(scanf("%d",&n);i<n*n;a[~(i%n)*~(i++/n)]="%d ");while(i)printf(a[i--],i);}

Spowoduje to wydrukowanie liczb w kolejności malejącej. Sugestie są mile widziane, ponieważ wydaje się to dalekie od optymalnych.


0

JavaScript (ES6), 86 bajtów

n=>{n++;a=[];for(j=1;j<n;j++)for(i=1;i<n;i++)if(a.indexOf(i*j)<0)a.push(i*j);return a}

Chcesz go skrócić (może spróbujesz zagnieżdżać pętle).


0

Perl 5, 91 bajtów

for my $y (1 .. $ARGV[0]){
    map {$s{$n}++ unless($s{$n=$y*$_}) } ($y .. $ARGV[0])
}
print join(" ", sort {$a<=>$b} keys %s) . "\n";

do uruchomienia przez przekazanie argumentu w wierszu poleceń. Brakuje wielu deklaracji z ograniczeniami i ostrzeżeniami.


0

Python, 124 102 bajtów

n=input()
l=[1]
for i in range(1,n+1):
 for j in range(1,n+1):l.append(i*j)
print sorted(list(set(l)))

Więcej pythonowych!


2
To w rzeczywistości 123 bajty, a nie 124. Ale możesz zaoszczędzić kilka bajtów, używając tylko jednej spacji na poziom wcięcia zamiast 4.
Alex A.,

1
Możesz także umieścić l.append(i*j)w tej samej linii co warunek warunkowy. Myślę, że ostatecznie ma to 102 bajty.
El'endia Starman

3
I użyj +=zamiast append.
Kartik

@ El'endiaStarman edytowane, dzięki!
TanMath,

1
Jedna stosunkowo niewielka kwestia: list(set(l))nie ma gwarancji, że zostanie rozwiązana.
El'endia Starman

0

Perl 5, 67 bajtów

for$i(1..($n=pop)){$a{$_*$i}++for 1..$n}map say,sort{$a<=>$b}keys%a
Korzystając z naszej strony potwierdzasz, że przeczytałeś(-aś) i rozumiesz nasze zasady używania plików cookie i zasady ochrony prywatności.
Licensed under cc by-sa 3.0 with attribution required.