int 입력 n이 주어지면 n * reversed (n)을 출력하십시오.


9

정수가 주어지면 n출력하십시오.n * reversed(n)

reversed(n)reverse의 자릿수 일 때 얻는 숫자입니다 n.


reverse(512) = 215

reverse(1) = 1

reverse(101) = 101

>>>>>>>>

func(5) = 5*5 = 25

func(12) = 12*21 = 252

func(11) = 11*11 = 121

func(659) = 659*956 = 630004

최단 코드 승리!

리더 보드

code-golf  math  arithmetic  code-golf  math  integer  code-golf  arithmetic  integer  code-golf  sequence  base-conversion  palindrome  code-golf  math  primes  integer  code-golf  parsing  conversion  syntax  code-golf  sequence  primes  code-challenge  geometry  optimization  code-golf  graph-theory  code-golf  number-theory  primes  integer  code-golf  source-layout  cops-and-robbers  code-golf  source-layout  cops-and-robbers  code-golf  sequence  primes  integer  code-golf  math  number-theory  primes  rational-numbers  code-golf  math  sequence  number-theory  primes  code-golf  string  code-golf  math  combinatorics  permutations  restricted-complexity  code-golf  array-manipulation  code-golf  number  sequence  code-golf  number  sequence  code-golf  binary-matrix  code-golf  math  tips  javascript  algorithm  code-golf  string  code-golf  number  sequence  code-golf  math  arithmetic  parsing  code-golf  number  sequence  primes  code-golf  string  ascii-art  geometry  integer  code-golf  geometry  code-golf  number  array-manipulation  code-golf  math  geometry  code-golf  number  sequence  arithmetic  integer  code-golf  string  kolmogorov-complexity  code-golf  number  code-golf  number  chess  code-golf  sequence  decision-problem  subsequence  code-golf  math  number  primes  code-golf  primes  permutations  code-golf  integer  probability-theory  statistics  code-golf  string  code-golf  sequence  decision-problem  parsing  board-game  code-golf  binary  graph-theory  code-golf  board-game  classification  tic-tac-toe  code-golf  ascii-art  polyglot  code-golf  date  code-golf  geometry 

3
그 반대는 100무엇입니까?
tsh

001그러나 앞에 0이 더 있으면 괜찮습니다
K Split X

4
왜 공감해야합니까? 이 도전은 너무 사소한 것이기 때문에 (다른 도전과 비교하면 그렇지 않습니다!) 형식이 잘못되었거나 불분명합니까?
user202729

2
@ user202729 답변에 대한 다양성이나 깊이를 보지 못했거나 예상하지 못했기 때문에 하향 투표했습니다. 이 질문은 지루하다, 나는 그것을 시도했다. 그것이 지루한 이유 중 하나는 사소한 것입니다. 왜냐하면 나는 그 자체로 질문을 내리는 것이 완벽한 원인이라고 생각합니다.
Ad Hoc Garf Hunter 19

답변:



4

자바 스크립트 (SpiderMonkey) , 45 35 33 28 바이트

n=>n*[...n].reverse().join``

온라인으로 사용해보십시오!


PPCG에 오신 것을 환영합니다! 세지 않아도됩니다 f=. 익명 기능은 기본적으로 허용됩니다.
Dennis

밖으로 스위치 (n+"").split("")에 대한 [...(n+"")]몇 바이트를 저장합니다. 단항 더하기가 필요하지 않으며 반전 된 문자열 주위의 괄호는 관계가 없습니다. 대체로 10 바이트를 절약 할 수 있습니다.
kamoroso94

당신은 대체 할 수 .join("").join``2 저장 바이트.
ATaco

문자열로 입력하여 5 바이트를 절약하십시오. tio.run/##BcFRCoAgDADQu/ilQYP6t4tEoNgMzTZxIXR6ey/…
Shaggy

4

젤리 , 3 바이트

×ṚḌ

Jelly를 처음 사용하므로 1 또는 2 바이트로이 작업을 수행 할 수있는 방법이 있는지 알려주십시오.

온라인으로 사용해보십시오!

설명

×ṚḌ    (Input: 12)

 Ṛ     Reversed decimal digits (Stack: [2, 1])
×      Multiply by input       (Stack: [24, 12])
  Ḍ    Convert to decimal      (Stack: 252)
       Implicit print

실제로 ṚḌ×더 나은 버전이 될 것입니다. 물론 이것은 기지의 작동 방식으로 인해 여전히 작동합니다.
아웃 골퍼 Erik

@EriktheOutgolfer 원래는 먼저 쓴하지만, 이동 ×장식성을 위해)
JungHwan 최소에게

4

루비, 25 24 바이트

->n{n*eval(n.digits*'')}

온라인으로 사용해보십시오! .

Integer#digits 반전 된 자릿수 목록을 반환하므로 더 이상 반전 할 필요가 없습니다.

1 바이트를 골프로 한 @ benj2240 에게 감사합니다 !



@ benj2240 감사합니다! :)
Yytsi

Invalid octal digit (SyntaxError)예상 8100을 반환하는 대신 오류로 900에서 프로그램이 실패하게되므로 평가 경로가 실제로 작동하지 않습니다 .
Value Ink


3

ARBLE , 12 바이트

입력을 정수로받습니다.

a*reverse(a)

온라인으로 사용해보십시오!


그래서 정수 입력을 말했지만 왜 작동하지 않습니까?
K Split X

@KSplitX 아, 나는 그것을 몰랐다. 나는 그 제한이 약간 불필요하다고 생각하지만 그것은 당신에게 달려 있습니다.
ATaco

@KSplitX 수정되었습니다.
ATaco

그렇게 사용 n * reverse(n)하면 단어에 대한 질문의 스펙 단어와 일치 해야합니다 (정수 부여 n, 출력 n * reversed(n))
Okx

3

파이썬 3, 35 28 바이트

lambda m:m*int(str(m)[::-1])

온라인으로 사용해보십시오!

Dennis가 지적한 버그를 수정하여 7 바이트를 절약했습니다.


아니 분명하다, 당신은 문자열로 변환하고 [::-1]그것을 뒤집은 다음 우리는 xD를 평가합니다.
K Split X

유효하지 않은 (8 진수) 리터럴 처럼 입력 80 에서는 작동하지 않습니다 08.
Dennis

3
버그를 수정하여 7 바이트를 절약 할 수 있습니다 . 버그 가 발생했을 때만 좋아하지 마십시오 ...
ETHproductions

3

하스켈 , 27 23 바이트

Lynn과 Laikoni 덕분에 4 바이트 절약

(*)=<<read.reverse.show

온라인으로 사용해보십시오!


1
가져 오기없이 23 바이트 : 온라인으로 사용해보십시오!
Laikoni

으로 Control.Monad그것은 또한 23 바이트이다 ap(*)$read.reverse.show.
라이 코니

1
필요 없습니다 Control.Monad. (*)=<<read.reverse.show잘 작동합니다.
Lynn

@Linnn 감사합니다! 나는 그것을 본 것 같은 느낌이 든다.
애드혹 가프 헌터


3

C # .NET, 55 바이트

n=>{int i=n,j=0;for(;i>0;i/=10)j=j*10+i%10;return n*j;}

설명:

여기에서 시도하십시오.

n=>{           // Method with integer as both parameter and return-type
  int i=n,     //  Integer `i` (starting at the input)
      j=0;     //  Integer `j` (starting at 0)
  for(;i>0;    //  Loop as long as `i` is not 0
      i/=10)   //    After every iteration: Remove the last digit of `i`
    j=j*10     //   Add a trailing zero to `j`,
      +i%10;   //   and then sum this new `j` with the last digit of `i`
               //  End of loop (implicit / single-line body)
  return n*j;  //  Return the input multiplied with `j`
}              // End of method

2

배치, 87 바이트

@set s=%1
@set r=
:l
@set/ar=r*10+s%%10,s/=10
@if %s% gtr 0 goto l
@cmd/cset/a%1*r

80과 같은 일부 숫자에서는 문자열 반전이 실패하므로 여기에서 산술 경로를 사용해야합니다.


2

J, 7 바이트

*|.&.":

온라인으로 사용해보십시오!

나는 이것이 매우 우아하다고 생각하지만 더 짧은 방법을 생각할 수 없었습니다.

설명

*|.&.":
   &.":  Convert to string, apply next function, then undo conversion
 |.      Reverse
*        Multiply by input


2

LISP, 91 64 바이트

(defun R (N) (defvar M (문자열에 쓰기 N)) (구문 정수 (역 M))) (쓰기 (* x (R x)))

(defun R(N)(write(* N(parse-integer(reverse(write-to-string N))))))

여기서 x N은 물론 작업하려는 정수입니다.

나는 프로그래밍에 익숙하지 않지만 이러한 코드 골프 문제를 시도하는 것이 좋은 습관이라는 것을 알았습니다. 내가 누락 된 부분이 도움이 될 수 있습니까?

편집 : ceilingcat의 일부 팁 덕분에 몇 바이트를 줄일 수있었습니다. 구식 프로그램은 참조를 위해 취소 선에 보존되었습니다.


Code Golf에 오신 것을 환영합니다! 공백을 제거하고 변수 할당을 버릴 수 있습니다. 또한 컨벤션에 따라 대신에 출력을 반환 할 수도 있습니다.(write ...)
ceilingcat

당신은 사용하여 바이트를 저장할 수 있습니다 lambda대신 defun. 또한 lisp에서 golfing에 대한 팁을
ceilingcat


2

배치 , 150 (125) 121 바이트 (+ 5 바이트? cmd/q)

set l=%1
set n=0
set r=
:L
call set t=%%l:~%n%,1%%%
set/an+=1
if [%t%] neq [] set r=%t%%r%&goto L
set/ar=%r%*%l%
echo %r%

user202729 덕분에 25 바이트 절약 !

Matheus Avellar 덕분에 4 바이트가 절약되었습니다 !




이 배치가 Bash가 아닌가? bash의 TIO는 작동하지 않습니다.
저스틴 마리너

예, 그렇습니다. 죄송합니다
Ephellon Dantzler

if121 바이트가되도록 인라인 할 수 있습니다 if [%t%] neq [] set r=%t%%r%&goto L. 그러나 /Q전달 된 플래그에 대해 1 바이트를 포함시켜야 cmd하므로 암시 적으로 실행됩니다.@echo off
Matheus Avellar

2

> <>, 41 39 바이트

:&>:a%:}-\
/~\?)0:,a/
>l1-?\&*n;
\ +*a/

작동 방식 :

:&

입력이 스택으로 푸시되었다고 가정하십시오 ( https://codegolf.meta.stackexchange.com/a/8493/76025 ). 그것을 복제하고 레지스터에 사본을 저장하십시오.

   >:a%:}-\
   \?)0:,a/

이것을 개별 숫자로 변환하여 스택에 남겨 둡니다.

/~
>l1-?\
\ +*a/

숫자-숫자 변환 프로세스로 인해 최상위 값은 항상 0입니다. 스택에서 떨어 뜨립니다. 이제 길이가> 1 인 동안 첫 번째 항목에 10을 곱한 다음 아래 항목에 추가하십시오. 그 결과 숫자가 반전됩니다.

      &*n;

원래 숫자에 역수를 곱하고 답을 인쇄 한 다음 중지하십시오.




1

매스 매 티카, 19 바이트

# IntegerReverse@#&

정수 입력을받습니다.




1

Casio-Basic (fx-CP400), 44 바이트

ExpToStr n,a
StrInv a,a
Print n*strToExp(a)

정수를 뒤집기위한 내장 기능은 없지만 문자열을 뒤집기위한 것은 없습니다.

ExpToStr n,an을 문자열로 변환하여에 저장 a한 다음 역전 된 버전으로 StrInv a,a덮어 씁니다 a. 마지막 줄은 a숫자로 바뀌고 인쇄합니다 n*a.

코드의 경우 43 바이트 n, 매개 변수 상자에 +1을 입력 합니다.


1

apt, 2 바이트

입력을 문자열로 받아서 정수를 출력합니다.

*w

시도 해봐


와우, 나는 그것이 적어도 4 바이트가되어야한다고 생각했다. 나는 정수로 입력하더라도 3이 있다고 가정한다*sw
ETHproductions

@ETHproductions : 예, 제가 원래 가지고 있었던 것입니다.
Shaggy

1

MATLAB / 옥타브 , 33 31 바이트

@(n)str2num(flip(int2str(n)))*n

온라인으로 사용해보십시오!

옥타브 / MATLAB 익명 기능. 이것은 매우 순진한 접근 방식입니다-정수를 문자열로 변환하고 문자열을 뒤집고 결과를 정수로 다시 변환 한 다음 원래 값을 곱합니다.


  • flip대신을 사용하여 2 바이트를 절약하십시오 fliplr.



1

PHP, 23 + 1 바이트

<?=$argn*strrev($argn);

파일로 저장하고로 파이프로 실행하십시오 -nF.




1

룬 마법 , 11 10 바이트

i:0qr͍n*@

온라인으로 사용해보십시오!

입력을 가져 와서 복제하고, 한 사본을 문자열로 강제 변환하고, 반전하여 숫자 값으로 다시 강제 변환 한 다음 결과를 출력합니다.

0q끝에 0을 연결하여 문자열로 강제 변환을 수행합니다. 명시적인 ToString()연산자가 없으므로이 경우에는 시작으로 교체 된 0이 결과 숫자 값을 변경하지 않는 가장 짧은 방법입니다. 이 -1 바이트에 대한 ASCII 전용 덕분입니다.



@ASCII만으로 충분합니다. 나는 직장에서 이들 대부분을 다루는 일을 끝내고 집에 게시하려고 할 때 항상 다시 방문하지는 않습니다.
Draco18s는 더 이상 SE
당사 사이트를 사용함과 동시에 당사의 쿠키 정책개인정보 보호정책을 읽고 이해하였음을 인정하는 것으로 간주합니다.
Licensed under cc by-sa 3.0 with attribution required.