ตามที่มีการถกเถียงกันเรื่องความขัดแย้งของ ltteres ใน wrod deos ไม่ mttaer มากสำหรับ raednig ขณะที่ lnog เป็นคนแรก

ดังนั้นเพื่อความสนุกอะไรคือฟังก์ชั่นที่สั้นที่สุดในการสุ่มลำดับตัวอักษรในคำโดยใช้ตัวอักษรตัวแรกและตัวสุดท้ายแทน

นี่คือแทงของฉันด้วย JavaScript ช่องว่างทั้งหมดนำออกที่124 130 ตัวอักษร

function r(w) {
  var l=w.length-1;
  return l<3?w:w[0]+w.slice(1,l).split("").sort(function(){return Math.random()-.5}).join("")+w[l];
}

JavaScript ที่สั้นกว่ายินดีต้อนรับเสมอ

• แก้ไข: เพิ่มการตรวจสอบความยาว ฟังก์ชั่นไม่ควรล้มเหลวสำหรับคำสั้น ๆ

Haskell, 4 ตัวอักษร

ฟังก์ชัน trinithis ที่เสนอนั้นตรงกับข้อกำหนดจริง:

s=id

มันส่งกลับสตริงไม่เปลี่ยนแปลงดังนั้นการรักษาตัวอักษรตัวแรกและตัวสุดท้ายในสถานที่และทำการเปลี่ยนแปลงของตัวละครอื่น ๆ ทั้งหมด

หากมีคนไม่พอใจกับการกระจายความน่าจะเป็นของพีชคณิตนี่คือวิธีแก้ปัญหาที่ให้การกระจายที่ดีกว่า เห็นได้ชัดว่ามันซับซ้อนมากขึ้น:

Haskell, 110 120 107 ตัวละคร

import Random
s l=randomRIO(1,length l-2)>>=g.($l).splitAt
g(a:b,c:d)=fmap(a:).s$c:b++d
g(a,b)=return$a++b

ตัวอย่างของโปรแกรมที่ใช้ฟังก์ชั่นนี้:

main = getLine >>= s >>= putStrLn

J, 26 24 23 ตัวอักษร

r=:{.,({~?~@#)&}.&}:,{:

Ruby, 44 ตัวอักษร

r=->w{w[h=1..-2]=[*w[h].chars].shuffle*"";w}

ใช้ได้กับคำศัพท์สั้น ๆ เช่นคำที่มีอักขระหนึ่งสองหรือสามตัวจะถูกส่งคืนโดยไม่เปลี่ยนแปลง

แก้ไข:การใช้แนวคิดอาร์เรย์ของ Ventero จะบันทึกอักขระอื่น

Ruby 1.9, 46 ตัวอักษร

r=->w{w[0]+[*w[1..-2].chars].shuffle*""+w[-1]}

Golfscript

ในฐานะ "function" (ชื่อ codeblock): 20 ตัวอักษร

{1/(\)\{;9rand}$\}:r

เมื่อใช้งานองค์ประกอบสูงสุดบนสแต็ก: 16 ตัวอักษร

1/(\)\{;9rand}$\

C ++, 79 ตัวอักษร^{_{( พร้อมการตรวจสอบช่วง )}}

string f(string s){if(s.size()>3)random_shuffle(&s[1],&s.end()[-1]);return s;}

C ++ 8165 ตัวอักษร^{_{( โดยไม่ตรวจสอบช่วง )}}

string f(string s){random_shuffle(&s[1],&s.end()[-1]);return s;}

การใช้ pass โดยการอ้างอิงแทนการส่งคืนผลลัพธ์จะลบอักขระอีก 10 ตัวออกจากโซลูชันทั้งสอง

โปรแกรมเต็มรูปแบบการอ่านคำศัพท์และการสับการแปลง:

#include <iostream>
#include <algorithm>
#include <cstdio>
#include <ctime>
#include <string>

using namespace std;    
string f(string s){if(s.size()>3)random_shuffle(&s[1],&s.end()[-1]);return s;}

int main() {
    std::srand(std::time(0));
    std::string s;
    while(std::cin >> s)
        std::cout << f(s) << " ";
    std::cout << std::endl;
}

กำลังใจในการทำงาน: อย่าสร้างสิ่งที่มีอยู่แล้ว โอ้และการตรวจสอบมากเกินไปสำหรับ wusses

Python 86 ตัวอักษร

import random as r
def f(w):t=list(w[1:-1]);r.shuffle(t);return w[0]+''.join(t)+w[-1]

และนี่คือตัวอย่างการใช้งาน:

for x in ["ashley", "awesome", "apples"]:
    print f(x)

นี่คือการฝึกซ้อมกอล์ฟรหัสแรกของฉัน หลังจากแก้ปัญหาฉันตัดสินใจที่จะดูคำตอบและมันก็ไม่แปลกใจที่คำตอบของฉันจะไม่ซ้ำกัน แม้ว่าจะสนุก: o)

ฉันทำการเปลี่ยนแปลงหนึ่งครั้งหลังจากดูคำตอบอื่น ๆ และมันเป็นการเปลี่ยนคำสั่งการนำเข้าของฉันเพื่อใช้นามแฝง ความคิดที่ดี. ; o)

C (K&R) - 88 86 87ตัวอักษร

r(char*s){int m,j,l=strlen(s)-2,i=l;while(--i>0){j=rand()%l+1;m=s[j];s[j]=s[1];s[1]=m;}}

ไม่มีฟังก์ชั่นการสลับหรือการสับเปลี่ยนใน C ดังนั้นฉันต้องทำด้วยตนเอง :(

โปรแกรมตัวอย่างที่มี Ungolfed r ():

#include <stdio.h>
#include <string.h>
#include <time.h>
#include <stdlib.h>

// -----------------------------------------------------------------------
r( char *s )
{
    int m, j, l=strlen(s)-2, i=l;

    while (--i>0)
    {
        j = rand() % l + 1;

        m = s[j];
        s[j] = s[1];
        s[1] = m;
    }

}
// -----------------------------------------------------------------------
int main()
{
    char s[] = "anticipated";

    srand( time(0) );
    r( s );
    puts( s );

    return 0;
}

แก้ไข : แก้ไขข้อผิดพลาดเมื่อ s ประกอบด้วยน้อยกว่า 3 ตัวอักษร (ขอบคุณผู้ใช้ uknown สำหรับการสังเกตเห็น!)

python, 87 79 75 93 92 chars (การจัดการสตริงที่มีความยาว 0,1)

from random import*
f=lambda w:w if 4>len(w)else w[0]+''.join(sample(w[1:-1],len(w)-2))+w[-1]

แก้ไข: เดิมคิดว่ามันควรจะแบ่งคำสตริง (ซึ่งมันที่ 128 ตัวอักษร; ตอนนี้ที่ 87 ตัวอักษรไม่ต้องการ) โอ๊ะฉันเข้าใจการอ่านไม่ดี

แก้ไข 2: เปลี่ยนจากฟังก์ชั่น def เป็นแลมบ์ดาจาก def เพื่อบันทึก 6 ตัวอักษร สมมติว่าตัวอย่างถูกนำเข้าสู่เนมสเปซ ( from random import sample) แล้วสามารถลดขนาดลงเหลือ ~ 60)

แก้ไข 3: "len (w [1: -1])" (12 ตัวอักษร) ถึง "len (w) -2" (8 ตัวอักษร) ต่อคำแนะนำที่ดีของ gnibbler

แก้ไข 4: JBernando บันทึกหนึ่ง char (ได้พิจารณาfrom random import *แล้วเห็นว่ามันเทียบเท่า - ไม่ตระหนักถึงพื้นที่ในimport *ไม่จำเป็น); ผู้ใช้ที่ไม่รู้จักเพิ่ม 19 ตัวอักษรw if len(w)<4 elseเพื่อจัดการ 0 และ 1 อักขระถ่านอย่างถูกต้อง

แก้ไข 5: บันทึกตัวละครอื่นต่อการเล่นกอล์ฟรหัสของบูธ ไปยังif len(w)<4 elseif 4>len(w)else

C ++, 111 97 ตัวอักษร

std::string f(std::string s){for(int i=s.size()-1;i>1;std::swap(s[rand()%i+1],s[--i]));return s;}

นี่คือโปรแกรมเต็มรูปแบบสำหรับผู้ที่ต้องการทดสอบ:

#include<string>
#include<iostream>

std::string f(std::string s){for(int i=s.size()-1;i>1;std::swap(s[rand()%i+1],s[--i]));return s;}

int main(){
    for(int i = 0; i<100; ++i)
    std::cout<<f("letters")<<std::endl;
}

แก้ไข

ตระหนักว่าไม่จำเป็นต้องสุ่มดัชนีการสลับทั้งสองบันทึกตัวแปรและอีกไม่กี่ตัวอักษร

php (68 ตัวอักษร)

$r=preg_replace('/^(\w)(\w+)(\w)$/e','$1.str_shuffle($2).$3',trim($w));

สั้นกว่า (60 ตัวอักษร)

$r=preg_replace('/(.)(.+)(.)/e','$1.str_shuffle($2).$3',$w);

Perl - 96 (หรือ 71) อักขระ 84 (หรือ 59) อักขระ

นี่คือสิ่งที่ฉันมาด้วยใน Perl ลองทำหลายวิธี แต่สิ่งนี้ดูสั้นที่สุดจากสิ่งที่ฉันคิดได้จนถึง 97 ตัวอักษร

use List::Util 'shuffle';sub r{($b,@w)=split//,$_[0];$e=pop(@w);return$b.join('',shuffle@w).$e;}

แม้ว่าถ้าคุณตัดบรรทัด 'ใช้' (ซึ่งฉันคิดว่าถูกต้องเนื่องจากคนอื่น ๆ ยกเว้น #include บรรทัดในโปรแกรม C ของพวกเขา) ฉันสามารถตัดมันได้มากถึง71 อักขระ :

sub r{($b,@w)=split//,$_[0];$e=pop(@w);return$b.join('',shuffle@w).$e;}

แก้ไข ขอแนะนำให้ฉันลองใช้วิธีการใช้ @tobius นี้ ด้วยวิธีนี้ฉันได้รับมันถึง84 ตัวอักษรหรือโดยการลบบรรทัดใช้59 ตัวอักษร :

use List::Util 'shuffle';sub r{$_[0]=~m/(.)(.+)(.)/;$1.join'',shuffle split//,$2.$3}

Ruby, 77 75 ตัวอักษร

def r(s);f=s.size-2;1.upto(f){|i|x=rand(f)+1;t=s[i];s[i]=s[x];s[x]=t};s;end

โซลูชัน Scala ของฉันในภาษา verbose น้อยกว่าเล็กน้อย ฉันไม่ใช่ผู้เชี่ยวชาญทับทิมไม่ว่าด้วยวิธีใดดังนั้นอาจมีช่องว่างสำหรับการปรับปรุง

Ruby 1.9, 77 48 46 44 ตัวอักษร

r=->w{w[h=1..-2]=[*w[h].chars].shuffle*"";w}

ข้อจำกัดความรับผิดชอบ: ฉันปรับตามคำตอบอันดับสูงสุด - สังเกตเห็นคำตอบที่เหมือนกันในภายหลัง คุณสามารถตรวจสอบประวัติที่ฉันได้เก็บจริงกับความคิดเดิมของฉัน แต่เปลี่ยนจากทับทิม 1.8 ทับทิม 1.9 สำหรับ lambdas shuffleสั้นและ

หากอนุญาตให้ใช้คำว่างเปล่าได้56 54 ตัวอักษร

r=->w{w.empty?||w[h=1..-2]=[*w[h].chars].shuffle*"";w}

Python 3, 94 93 91 ตัวอักษร

ใช้เทคนิคที่แตกต่าง อาจทำงานใน Python 2

from random import*
s=lambda x:x[0]+''.join(sample(x[1:-1],len(x)-2))+x[-1]if x[0:-1]else x

การ... if x[0:-1] else xให้xถ้าความยาวของมันคือ 1 (มิฉะนั้นมันจะซ้ำกัน) ฟังก์ชันใช้งานได้กับสตริงที่มีความยาว 0 และ 1

sample()จากhttps://stackoverflow.com/questions/2668312/shuffle-string-in-python/2668366#2668366

เพราะมันเป็นหนึ่งในการแสดงออกของเราสามารถใช้lambda(กำจัดreturn, defและคู่ของวงเล็บ)

แก้ไข: from random import*เพื่อบันทึก 1 ตัวอักษรหลังจากการส่ง Python อื่น

JavaScript - 118 122 ตัวอักษร

ตัวย่อ JavaScript - 118 ตัวอักษรโดยไม่มี white space ใช้อัลกอริทึมเดียวกับ OP โดยประมาณ แต่ใช้การผูกมัดน้อย ฉันพยายามสอบถามซ้ำหลายครั้งและพยายามทำซ้ำ แต่พวกเขามักจะจมอยู่กับอะไรไม่ทางใดก็ทางหนึ่ง

function s(w)
{
    w = w.split('');
    var a = w.shift(),
        z = w.pop();
    return z?a + (w.sort(function() { return Math.random() - .5}).join('')) + z:a;
}

D, 62 ตัวอักษร

import std.random;void s(char[] s){randomShuffle(s[1..$-1]);}

โอเคฉันโกงด้วยอักขระถ่านธรรมดาแทนที่จะเป็นสตริงจริง (ซึ่งเป็นอักขระที่ไม่เปลี่ยนรูป [] ดังนั้นจึงไม่มีการสับแบบแทนที่)

แก้ไขด้วยการตรวจสอบความยาวต้องใช้อีก 14

import std.random;void s(char[] s){if(s.length>1)randomShuffle(s[1..$-1]);}

php 5.3 (60 ตัวอักษร)

$r=!$w[2]?:$w[0].str_shuffle(substr($w,1,-1)).substr($w,-1);

ปรับปรุงเป็น 56 ตัวอักษรและไม่ต้องการเวอร์ชั่น 5.3 อีกต่อไป:

$r=substr_replace($w,str_shuffle(substr($w,1,-1)),1,-1);

Perl - 111 ตัวอักษร (โดยไม่ใช้ฟังก์ชั่นห้องสมุดใด ๆ )

sub r{($f,@w)=split//,shift;$l=pop@w;while(@w){if(rand(9)>1){push@w,shift@w}else{push@t,pop@w}}join'',$f,@t,$l}

การใช้งาน :

$in="randomizethis";
$out = &r($in);
print "\nout: $out";
sub r{($f,@w)=split//,shift;$l=pop@w;while(@w){if(rand(9)>1){push@w,shift@w}else{push@t,pop@w}}join'',$f,@t,$l}

หลาม

มันคือ90 89 112 ตัวละครของไพ ธ อน!

แก้ไข 1: เป็นฟังก์ชั่นในครั้งนี้!

แก้ไข 2: ตอนนี้จัดการกับคำศัพท์สั้น ๆ

import random as r
def q(s):
 a=list(s)
 b=a[1:-1]
 r.shuffle(b)
 if len(s)<4:
  return s
 return a[0]+''.join(b)+a[-1]

สกาลา, 135 139 142 156ตัวอักษร

def r(s:String)={var(x,o,t,f)=(0,s.toArray,' ',s.size-2)
for(i<-1 to f){t=o(i)
x=util.Random.nextInt(f)+1
o(i)=o(x)
o(x)=t}
o.mkString}

-7: ถูกลบออก ': สตริง' (สามารถส่งคืนชนิดของข้อสรุปได้)
-7: ลบแล้ว 'กลับ' (นิพจน์สุดท้ายคือค่าที่ส่งคืน)
-3: แฟคตอริ่งs.size-2ออก
-4: toCharArray->toArray

Python 86 ตัวอักษร

Slnicig ปลอดภัยดังนั้นจึงไม่มี bnouds ckhnceig คือ neeacrssy Wkros ในทุก leghtns

from random import*
def f(x):x=list(x);t=x[1:-1];shuffle(t);x[1:-1]=t;return''.join(x)

C ++ 11: - 68 66 ตัวอักษร

auto f=[&](){if(s.size()>2)random_shuffle(s.begin()+1,s.end()-1);};

โปรแกรมเต็มรูปแบบ:

#include <iostream>
#include <string>
#include <algorithm>

using namespace std;

int main(int argc, char* argv[]){

  string s = "SomestrinG";
  auto f=[&](){if(s.size()>2)random_shuffle(s.begin()+1,s.end()-1);};

  f();
  cout << s << endl;
  return 0;
}

Ruby 1.9, 43 ตัวอักษร

r = W [0] + [* W [1 ..- 2] .chars] .shuffle.join + W [-1]

ยังไม่สามารถใช้งานได้กับความยาว 1 อักขระสตริง (ซ้ำอักขระนั้น) และล้มเหลวสำหรับสตริงว่าง

Python - 76 ตัวอักษร

import random as r
def f(w):m=list(w)[1:-1];r.shuffle(m);return w[0]+''.join(m)+w[-1]

R, 104 (126)

f=function(w){s=strsplit(w,"")[[1]];paste(c(s[1],sample(s[2:(length(s)-1)]),s[length(s)]),collapse="")}

การใช้งาน:

for (i in 1:10) print(f("parola"))
[1] "plraoa"
[1] "prolaa"
[1] "praola"
[1] "parloa"
[1] "plaora"
[1] "palroa"
[1] "porlaa"
[1] "ploraa"
[1] "porlaa"
[1] "ploraa"

ฟังก์ชั่นด้านล่างทำงานร่วมกับคำที่มีความยาวน้อยกว่า 3:

f=function(w){s=strsplit(w,"")[[1]];ifelse(length(s)<3,w,paste(c(s[1],sample(s[2:(length(s)-1)]),s[length(s)]),collapse=""))}

f("pl")
[1] "pl"
f("a")
[1] "a"

Python, 102 ตัวอักษร

def f(x):t=list(x)[1:-1];k='';exec'k+=t.pop(id(7)%len(t));'*len(t);return[x[0],x[0]+k+x[-1]][len(x)>1]

ไม่มีการนำเข้า! ทำงานสำหรับคำที่ 1 ตัวละครขึ้นไป นี่คือรายการกอล์ฟแห่งแรกของฉันและฉันได้รับแรงบันดาลใจจากรายการ BlueEyedBeast จากรหัสที่สั้นที่สุดในการผลิตการส่งออกที่ไม่ได้กำหนดความคิดของการใช้ID (Object)

คำอธิบาย:มันทำให้รายการของตัวอักษรจากอินพุตไม่รวมตัวแรกและตัวสุดท้ายและจะปรากฏซ้ำ ๆ จากรายการนี้และผนวกเข้ากับตัวใหม่จนกว่าจะว่างเปล่า ดัชนีที่ปรากฏจากนั้นคือ id (7)% len (รายการที่เรากำลังโผล่จาก) เนื่องจาก id (7) เป็นที่อยู่หน่วยความจำของวัตถุ 7 จึงเป็นแบบสุ่ม ดังนั้นตอนนี้เรามีรายการตัวอักษรที่มีสัญญาณรบกวนแบบสุ่มจากศูนย์กลางของอินพุตต้นฉบับ สิ่งที่เราทำตอนนี้คือการเพิ่มตัวอักษรตัวแรกและตัวสุดท้ายของเอาท์พุทเดิมตามลำดับและเราได้ผลลัพธ์ที่เราต้องการ: (ตัวอักษรตัวแรก) + (สัญญาณรบกวนกลาง) + (ตัวอักษรตัวสุดท้าย)

R, 95 92 91 ตัวอักษร

f=function(w,a=el(strsplit(w,'')),b=length(a))cat(a[1],sample(a[c(1,b)],b-2),a[b],sep="")

ใช้การประเมินแบบขี้เกียจของ R เพื่อคำนวณ a และ b เป็นพารามิเตอร์ฟังก์ชันประหยัดพื้นที่ด้วยการใช้ซ้ำในภายหลัง แตกต่างจากคำตอบ R อื่น ๆ ซึ่งใช้ได้ผลกับทุกคำ> 1 อักขระ ตัวอย่างด้านล่าง:

> f("hippopotamus")
hpuoopaitmps

> f("dog")
dog

> f("az")
az

แก้ไข: แทนที่unlist()ด้วย[[]] แทนที่ [[1]] ด้วย el ()

D: 55 ตัวอักษร

void f(T)(T s){if(s.length>2)randomShuffle(s[1..$-1]);};

โปรแกรมเต็มรูปแบบ:

import std.stdio, std.random, std.conv;

void f(T)(T s){if(s.length>2)randomShuffle(s[1..$-1]);};

void main(){

  char[] s = to!(char[])("SomestrinG");

  f(s);
  writeln(s);
}

Erlang, 188 172 132 ตัวอักษร

f([H|C=[_|_]])->T=[lists:last(C)],[H|s(C--T,T)];f(X)->X. s([],N)->N;s(D,N)->E=[lists:nth(random:uniform(length(D)),D)],s(D--E,E++N).

ฉันยังคงเรียนรู้ Erlang ดังนั้นคำแนะนำใด ๆ ในการทำให้สิ่งนี้สั้นลงนั้นเป็นที่น่ายินดี

รหัสเต็ม (โมดูล string_shuffle):

-module(string_shuffle).
-export([f/1]).

f([H|C=[_|_]])->
    T=[lists:last(C)],
    [H|s(C--T,T)];f(X)->X.
f(X)->X.

s([],N)->N;
s(D,N)->
    E=[lists:nth(random:uniform(length(D)),D)],
    s(D--E,E++N).

แก้ไข

นำส่วนสับเปลี่ยนออกมาเป็นฟังก์ชั่นแยกซึ่งไม่ต้องใช้หัวและส่วนท้ายของรายการที่จะส่งผ่าน

แก้ไข 2

ปรับโครงสร้างใหม่เพื่อลบหนึ่งในfรูปแบบฟังก์ชั่นเปลี่ยนฟังก์ชั่นสลับเพื่อยอมรับเพียงสองพารามิเตอร์เปลี่ยนlists:deleteสำหรับ--[]สลับlists:reverseสายสำหรับlists:last