正の数、所与のときに、書き込みコード$x$入力として、最大の正の除数出力$x$以下の平方根に等しい$x$。

言い換えれば、次のような最大の見つけます$n > 0$

$\exists m\geq n:m\cdot n=x$

^{（存在する$m$を超えるのか等しい$n$ように$m$時間$n$であり、$x$）}

入力があった場合、例えば除数は、、、、、、および。 、とを得るために、より大きな数字ですべての乗算が、、我々が戻るので、最大で。$12$2 3 4 6 12 1 2 3 12 3 $1$$2$$3$$4$$6$$12$$1$$2$$3$$12$$3$$3$

これはコードゴルフなので、回答はバイト単位でスコアリングされ、バイト数が少ないほどより良いスコアと見なされます。

テストケース

(1,1)
(2,1)
(3,1)
(4,2)
(5,1)
(6,2)
(7,1)
(8,2)
(9,3)
(10,2)
(11,1)
(12,3)
(13,1)
(14,2)
(15,3)
(16,4)
(17,1)
(18,3)
(19,1)
(20,4)
(21,3)
(22,2)
(23,1)
(24,4)
(25,5)
(26,2)
(27,3)
(28,4)
(29,1)
(30,5)
(31,1)
(32,4)
(33,3)
(34,2)
(35,5)
(36,6)
(37,1)
(38,2)
(39,3)
(40,5)
(41,1)
(42,6)
(43,1)
(44,4)
(45,5)
(46,2)
(47,1)
(48,6)
(49,7)
(50,5)

OEIS A033676

python3、49の 47バイト

def f(x):
 l=x**.5//1
 while x%l:l-=1
 return l

説明

• l=x**.5//1→のl平方根以下の最大整数を割り当てるx
• while x%l:l-=1→ l均等に分割されませんがx、減少しますl。

編集

• Python2ではなくPython3に言及
• ...//12バイトを保存するために使用します。（10進数は大丈夫です。ありがとう@Rod）

MATL、7バイト

Z\tn2/)

オンラインでお試しください！

この説明では、サンプル入力として「12」を使用します。説明：

Z\      % Divisors.
        % Stack:
        %   [1 2 3 4 6 12]
  t     % Duplicate.
        % Stack:
        %   [1 2 3 4 6 12]
        %   [1 2 3 4 6 12]
   n    % Number of elements.
        % Stack:
        %   6
        %   [1 2 3 4 6 12]
    2/  % Divide by 2
        % Stack:
        %   3
        %   [1 2 3 4 6 12]
      ) % Index (grab the 3rd element)
        % 3

これは、多くの幸運な偶然のおかげで機能します。

1. MATLは1つのインデックスを使用します
2. 非整数であれば、我々は、インデックス（これは任意の完璧な正方形の入力のために起こります）、その後、<n>)インデックス意志$\lceil n \rceil$

C（gcc） -lm、35バイト

i;f(n){for(i=sqrt(n);n%i;i--);n=i;}

オンラインでお試しください！

05AB1E、5バイト

Ñ2äнθ

オンラインでお試しください！ またはテストスイートとして

説明

Ñ        # push the list of divisors
 2ä      # split it into 2 parts
   н     # take the first haft
    θ    # take the last element of that

APL（Dyalog Unicode）、16 14 12バイト

私はそれを学んだばかりなので、APLでいくつかの答えを書くことができてうれしいです。ゴルフにご協力いただきありがとうございます。ゴルフの提案は大歓迎です。オンラインでお試しください！

APLの詳細については、APL Orchardをご覧ください。

編集： -2バイトでコードの問題を修正します。その問題を指摘してくれたH.PWizに感謝します。再びすべてを短縮することから-2バイト。

⌈/{⍳⌊⍵*÷2}∨⊢

アンゴルフ

⌈/{⍳⌊⍵*÷2}∨⊢
          ∨   GCD of the following...
           ⊢    The right argument, our input.
  {⍳⌊⍵*÷2}
     ⍵            Our input.
      *÷2         To the power of 1/2, i.e. square root.
    ⌊             Floor.
   ⍳              Indices up to floor(sqrt(input)).
                In total, range from 1 to floor(sqrt(input)).
⌈/            The maximum of the GCDs of our input with the above range.

殻、4バイト

→←½Ḋ

オンラインでお試しください！

説明

→←½Ḋ
   Ḋ      Divisors of (implicit) input.
  ½       Bisect.
→←        Take the last element of the first half.

R、45 33バイト

function(x,y=1:x^.5)max(y[!x%%y])

オンラインでお試しください！

元の：

function(x,y=x/1:x^.5)max(which(y==floor(y)))

オンラインでお試しください！

x86 32ビット（IA32）マシンコード：18 16バイト

変更ログ：n=1テストケースを正しく処理し、2バイトを保存して、EAXで返します。

n/i <= i（つまり、sqrtに到達するまで）カウントアップし、その後に最初の正確な除数を使用します。

これの64ビットバージョンは、x86-64 System V呼び出し規約を使用してCから呼び出し可能
int squarish_root_countup(int edi)です。

nasm -felf32 -l/dev/stdout squarish-root.asm：

58                         DEF(squarish_root_countup)
59                             ; input: n in EDI
60                             ; output: EAX
61                             ; clobbers: eax,ecx,edx
62                         .start:
63 00000025 31C9               xor    ecx, ecx
64                         .loop:                    ; do{
65                         
66 00000027 41                 inc    ecx                ; ++i
67 00000028 89F8               mov    eax, edi
68 0000002A 99                 cdq
69 0000002B F7F9               idiv   ecx                ; edx=n%i    eax=n/i
70                         
71 0000002D 39C1               cmp    ecx, eax
72 0000002F 7CF6               jl     .loop          ; }while(i < n/i
73                                                   ;          || n%i != 0);  // checked below
74                             ; falls through for i >= sqrt(n)
75                             ; so quotient <= sqrt(n) if we get here
76                         
77                                                   ; test edx,edx / jnz  .loop
78 00000031 4A                 dec    edx            ; edx-1 is negative only if edx was zero to start with
79 00000032 7DF3               jge   .loop           ; }while(n%i >= 1);
80                             ; falls through for exact divisors
81                         
82                             ; return value = quotient in EAX
83                         
84 00000034 C3                 ret

           0x10 bytes = 16 bytes.

85 00000035 10             .size: db $ - .start

オンラインでお試しください！argv [1]の最初のバイトを整数として直接使用し、その結果をプロセスの終了ステータスとして使用するasm呼び出し元を使用します。

$ asm-link -m32 -Gd squarish-root.asm && 
for i in {0..2}{{0..9},{a..f}};do 
    printf "%d   " "0x$i"; ./squarish-root "$(printf '%b' '\x'$i)"; echo $?;
done

0   0  # bash: warning: command substitution: ignored null byte in input
1   1
2   1
3   1
4   2
5   1
6   2
7   1
8   2
9   3
10   0       # this is a testing glitch: bash ate the newline so we got an empty string.  Actual result is 2 for n=10
11   1
12   3
13   1
14   2
15   3
16   4
   ...

Japt -h、8 6バイト

â f§U¬

それを試してみてください

Oliverのおかげで2バイト節約

説明

           :Implicit input of integer U
â          :Divisors of U
  f        :Filter
   §       :  Less than or equal to
    U¬     :  Square root of U
           :Implicitly get the last element in the array and output it

ゼリー、5バイト

ọⱮ½TṪ

オンラインでお試しください！

JavaScriptのES7、33の 31バイト

n=>(g=x=>n%x?g(x-1):x)(n**.5|0)

オンラインで試す

雪だるま、38バイト

((}1vn2nD`#nPnF|:|NdE|;:,#NMo*|,;bW*))

オンラインでお試しください！

((
  }        activate variables b, e, and g
  1vn2nD`  e=1/2
  #        retrieve the input into b
  nP       set b=b^e, which is sqrt(input)
  nF       floor the square root
  |        move b into g so there's space for a while loop
  :        body of the loop
    |NdE|  decrement the value in g
  ;:       loop condition
    ,#     assign b=input, e=current value
    NMo    store the modulo in g
    *|     discard the input value and place the modulo in the condition slot
    ,      put the current value back into g
  ;bW      continue looping while the modulo is nonzero
  *        return the result
))

dc、24

?dsnv1+[1-dlnr%0<m]dsmxp

オンラインでお試しください！

説明：

?                         # read input
 d                        # duplicate
  sn                      # store copy 1 in register n
    v                     # take the square root of copy 2
     1+                   # add 1
       [          ]       # define macro to:
        1-                #   subtract 1
          d               #   duplicate
           ln             #   load from register n
             r            #   reverse top 2 stack members
              %           #   calculate modulo
               0<m        #   if not 0, recursively call macro m again
                   d      # duplicate macro
                    sm    # store copy 1 in register m
                      x   # execute copy 2
                       p  # print final value

J、24 19バイト

シャーロックのGCDアイデアのおかげで-5バイト

([:>./+.)1+i.@<.@%:

オンラインでお試しください！

元の答え

([:{:]#~0=]|[)1+i.@<.@%:

オンラインでお試しください！

解析済み

┌───────────────────────────────┬──────────────────────┐
│┌──┬──┬───────────────────────┐│┌─┬─┬────────────────┐│
││[:│{:│┌─┬─────┬─────────────┐│││1│+│┌─────────┬─┬──┐││
││  │  ││]│┌─┬─┐│┌─┬─┬───────┐││││ │ ││┌──┬─┬──┐│@│%:│││
││  │  ││ ││#│~│││0│=│┌─┬─┬─┐│││││ │ │││i.│@│<.││ │  │││
││  │  ││ │└─┴─┘││ │ ││]│|│[││││││ │ ││└──┴─┴──┘│ │  │││
││  │  ││ │     ││ │ │└─┴─┴─┘│││││ │ │└─────────┴─┴──┘││
││  │  ││ │     │└─┴─┴───────┘│││└─┴─┴────────────────┘│
││  │  │└─┴─────┴─────────────┘││                      │
│└──┴──┴───────────────────────┘│                      │
└───────────────────────────────┴──────────────────────┘

説明

• 1 + i.@<.@%: 範囲を与える 1 .. floor(sqrt)。
• 動詞全体(A) Bがフックを形成し、上記の範囲は]Aに右引数として渡され、元の数値は左引数として渡され[ます。したがって...
• ] | [ 元の引数に分割された範囲内の各アイテムの残りを提供します。
• そして0 = ] | [、余りのない除数を与えます。
• ] #~ ... その後、範囲のみをフィルタリングし、それらのみを残します。
• そして{:、リストの最後の項目、つまり最大のものを提供します。

ゼリー、5バイト

½ḍƇµṪ

オンラインでお試しください！

Haskell、36バイト

f x=[z|y<-[1..],z<-[1..y],y*z==x]!!0

オンラインでお試しください！

$y$[1..]$z$[1..y]$(y,z)$$y \geq z$

$y\cdot z=x$$x$$y$$z$$y$$z$

$z$$z$

QBasic（4.5）、52バイト

INPUT x
FOR i=1TO sqr(x)
if x/i=x\i then m=i
next
?m

Forth（gforth）、53バ​​イト

最短の方法は、浮動小数点スタックとを使用するfsqrtことのようです。これなしで取得できる最短は、62バイトを使用/modして、商が除数より大きいかどうかを確認することでした。

: f dup s>f fsqrt f>s 1+ begin 1- 2dup mod 0= until ;

オンラインでお試しください！

説明

1. 平方根を計算する
2. 平方根から始めて、元の数の係数が見つかるまで1ずつ減分します

コードの説明

: f                \ Start a word definition
dup                \ duplicate the input
s>f fsqrt          \ move the number to the float stack and get the square root
f>s                \ truncate result and move to integer stack
1+                 \ add 1 to the square root
begin              \ start indefinite loop
  1- 2dup          \ decrement divisor and duplicate input and divisor
  mod              \ calculate n % divisor
0= until           \ if result equals 0 (no remainder) end the loop
;                  \ end the word definition

F＃、55 49バイト

let f x=Seq.findBack(fun i->x%i=0.0){1.0..x**0.5}

オンラインでお試しください！

Seq.findBack：指定された関数が返す最後の要素を返しますTrue。この場合の関数は、数値が値の要因であるかどうかを確認します。

Brain-Flak、144バイト

{({}{}<<>({}<>)<>([({})()]<>({}(<>)())){(<{}({}[()]{}<({}())>)>)}{}((({}<>)<>(({})))[({}[{}])])>[({<({}[()])><>({})<>}{}<><{}>)])}{}{}<>{}({}<>)

オンラインでお試しください！

この答えが非常に良いかどうかはよくわかりません。このタスクを解決する良い方法があるかもしれませんが、私は十分に賢くはありません。

説明

答えの分解図を表示しようとしましたが、あまりにも多くの可動部分があり、あまり啓発的ではなかったので、ここでコードの機能の説明をします。

最初の重要なビットはこれです

({}<>)<>([({})()]<>({}(<>)())){(<{}({}[()]{}<({}())>)>)}{}

これは、スタックの2つの数値を取得し、それらが等しくない場合は2番目の数値を増分し、等しい場合は最初の数値を増分し、2番目の数値をゼロで置き換えます。このコードを何度も繰り返した場合、すべてのペアを取得します$(x,y)$ そのような $x \geq y$。

次の部分は、wikiからの変更を加えた乗算です。この乗算は、既存の値を破壊せずに保持するため、特別です。次のようになります：

((({}<>)<>(({})))[({}[{}])])({<({}[()])><>({})<>}{}<><{}>)

したがって、これらすべての順序付きペアを乗算しています。結果ごとに、入力と等しいかどうかを確認します。その場合、ペア内の小さいアイテムを終了して返します。

Python 2、41バイト

n=k=input()
while(k*k>n)+n%k:k-=1
print k

オンラインでお試しください！

ゼリー、6バイト

ÆDŒHḢṪ

オンラインでお試しください！

Perl 5 -pバイト

$\=0|sqrt;$\--while$_%$\}{

オンラインでお試しください！

さび、71 70バイト

fn f(x:u64)->u64{let mut l=(x as f64).sqrt()as u64;while x%l>0{l-=1}l}

事前修正版

fn f(x: u64) -> u64 {                    // function takes u64, gives u64
  let mut l = (x as f64).sqrt() as u64;  // l takes integer'ed root value
  while x % l > 0 {                      // loop while l leaves remainder
    l -= 1                               // decrement
  }
  l                                      // return the found value
}

編集

• > 0overでバイトを保存します!= 0。（@CatWizardに感謝）

Japt、8バイト

â w æ§Uq

オンラインでお試しください！

三角度、49バイト

....)....
...@_)...
..IEdF)..
.2)1/)IE.
^>{m.....

オンラインでお試しください！

Pyret、93バイト

{(z):rec f={(i,x):if num-modulo(i, x) == 0:x else:f(i,x - 1)end}
f(z,num-floor(num-sqrt(z)))}

オンラインのPyretエディターにコピーして、これをオンラインで試すことができます！

上記は、匿名関数に評価されます。整数に適用されると、仕様に従って結果を返します。

実際には、7バイト

ここに私のAPLの答えに基づいて。ゴルフの提案を歓迎します！オンラインでお試しください！

;√LR♀gM

アンゴルフ

;√LR♀gM  Implicit input n
;        Duplicate n
 √       sqrt(n)
  L      floor(sqrt(n))
   R     1..floor(sqrt(n))
    ♀g   gcd(n, foreach(1..floor(sqrt(n)))
      M  The maximum of the GCDs.
         Return this maximum.

このMathematica回答の移植版。

ゼリー、11バイト

½ðḞ³÷Ċ³÷µÐL

オンラインでお試しください！

これ（11バイト）も機能し、依存しません³：

½Ḟ÷@Ċ÷@ʋƬµṪ

残念ながら½Ḟ÷@Ċ÷@ʋÐL（10バイト）は機能しません。そして、どうやらƬとÐĿまったく同じではありません（リンクが二項の場合）

メソッド：（let $n$ 入力する）

• 上限から始めます $i = \sqrt n$ 答えの $a$。
• 各ステップで：
  • もし $i$ 整数ではない場合、上限を設定できます $\lfloor i\rfloor$ （結果は整数でなければならないため）
  • もし $n\over i$ 整数ではない場合、 $a \le i \Rightarrow \frac n a \ge \frac n i \Rightarrow \frac n a \ge \lceil \frac n i \rceil \Rightarrow a \le n \div \lceil \frac n i \rceil$。
• だから私たちは繰り返し置き換えます $i$ と $n \div \lceil \frac n {\lfloor i\rfloor} \rceil$ それが修正されるまで。

Java 8、65 54バイト

n->{int r=(int)Math.sqrt(n);for(;n%r>0;r--);return r;}

@huntekeのPython 3回答のポート。

オンラインでお試しください。

古い65バイトの答え：

n->{int r=1,i=n;for(;i-->1;)r=n%i<1&n/i<=i&n/i>r?n/i:r;return r;}

オンラインでお試しください。

説明：

n->{                // Method with integer as both parameter and return-type
  int r=1,          //  Result-integer, starting at 1
  i=n;for(;i-->1;)  //  Loop `i` in the range (n, 1]
    r=n%i<1         //   If `n` is divisible by `i`,
      &n/i<=i       //   and if `n` divided by `i` is smaller than or equal to `i` itself,
      &n/i>r?       //   and if `n` divided by `i` is larger than the current `r`
       n/i          //    Set `n` divided by `i` as the new result `r`
      :             //   Else:
       r;           //    Leave result `r` unchanged
  return r;}        //  Return the result `r`