리스트 회전

아래 조건에 따라 리스트를 회전하는 프로그램을 작성하시오.

조건

  • 입력값은 한 행의 문자열로 주어지며, 각 값은 공백으로 구분된다.

  • 첫 번째 값은 리스트를 회전하는 양과 방향(음수의 경우 좌측으로, 양수의 경우 우측으로 회전)이다.

  • 첫 번째 값을 제외한 나머지 값은 리스트의 각 항목의 값이다.

  • 회전된 리스트를 문자열로 출력한다.

  • 구현에 이용할 자료구조에 대한 조건이나 제약은 없다.

  • 입력되는 리스트의 항목의 개수는 유한한다.

입출력예

예 1)

  • 입력: 1 10 20 30 40 50

  • 출력: 50 10 20 30 40

예 2)

  • 입력: 4 가 나 다 라 마 바 사

  • 출력: 라 마 바 사 가 나 다

예 3)

  • 입력: -2 A B C D E F G

  • 출력: C D E F G A B

예 4)

  • 입력: 0 똘기 떵이 호치 새초미

  • 출력: 똘기 떵이 호치 새초미

※ 상대에게 상처를 주기보다 서로에게 도움이 될 수 있는 댓글을 달아 주세요.

1개의 풀이가 있습니다.

Perl

sub rot{
    my($i,@a)=@_;$i*=-1;
    print "$a[nth($#a,$_)] " for($i..$i+$#a-1);
    print "$a[nth($#a,$i+$#a)]";
}
sub nth{
    my($s,$o)=@_;
    if($o<0){
        $o+=$s+1 until $o>=0;
    }
    if($o>$s){
        $o-=$s+1 until $o<=$s;
    }
    $o
}
※ 상대에게 상처를 주기보다 서로에게 도움이 될 수 있는 댓글을 달아 주세요.

풀이 작성

※ 풀이작성 안내
  • 본문에 코드를 삽입할 경우 에디터 우측 상단의 "코드삽입" 버튼을 이용 해 주세요.
  • 마크다운 문법으로 본문을 작성 해 주세요.
  • 풀이를 읽는 사람들을 위하여 풀이에 대한 설명도 부탁드려요. (아이디어나 사용한 알고리즘 또는 참고한 자료등)
  • 작성한 풀이는 다른 사람(빨간띠 이상)에 의해서 내용이 개선될 수 있습니다.
목록으로
코딩도장

코딩도장은 프로그래밍 문제풀이를 통해서 코딩 실력을 수련(Practice)하는 곳입니다.


언어별 풀이 현황
전 체 x 49
haskell x 2
java x 4
python x 26
delphi x 1
perl x 1
lisp x 1
기 타 x 7
cpp x 2
go x 1
cs x 2
objectivec x 1
ruby x 1