Хабр Курсы для всех
РЕКЛАМА
Практикум, Хекслет, SkyPro, авторские курсы — собрали всех и попросили скидки. Осталось выбрать!

мааееикмсттче иеиюклнсче раобты саоюявлстт эогто гаеииивдклрсче аоврта яюявлстя уойврсстта эееииодклнпцй аионнтчй паиодклнрй мааеикмтти
//import java.util.Collections;
//import java.util.ArrayList;
String text = "Практической пользы программа не несет, разве что прокачать навыки чтения и подгрузить мозг.";
final StringBuffer sb = new StringBuffer( text.length() );
Matcher m = Pattern.compile("[а-яА-Яa-zA-Z]{4,}").matcher(text);
while (m.find()) { // words
for(int g=0; g<=m.groupCount(); ++g) {
String wrd = m.group(g);
String wrd_new = wrd.substring(0,1);
char[] chars = wrd.substring(1, wrd.length()-1 ).toCharArray();
ArrayList<String> al = new ArrayList();
for(int i=0; i<chars.length; ++i)
al.add( String.valueOf(chars[i]) );
Collections.shuffle(al);
for(String tmp : al)
wrd_new += tmp;
wrd_new += wrd.substring(wrd.length()-1,wrd.length());
m.appendReplacement( sb, Matcher.quoteReplacement( wrd_new ) );
}
}
m.appendTail( sb );
System.out.println(sb);
# -*- coding: utf-8 -*-
import re, random
def _reword(m):
bits = list(m.group(0))
prefix, core, suffix = bits[:1], bits[1:-1], bits[-1:]
random.shuffle(core)
return ''.join(prefix + core + suffix)
def shuffle_text_letters(s):
return re.sub(u'[а-яА-Яa-zA-Z]{4,}', _reword, s)
print shuffle_text_letters(u"Практической пользы программа не несет, разве что прокачать навыки чтения и подгрузить мозг.")
$text = "Практической пользы программа не несет, разве что прокачать навыки чтения и подгрузить мозг.";
$text = preg_replace_callback("/(?<=[а-я])[а-я]{2,}(?=[а-я])/iu", 'rndstr', $text);
function rndstr($matches) {
preg_match_all("/./u",$matches[0],$m);
shuffle($m[0]);
return join('',$m[0]);
}
echo $text;
use utf8;
use List::Util 'shuffle';
$text = 'Практической пользы программа не несет, разве что прокачать навыки чтения и подгрузить мозг.';
$text =~ s/(?<=[а-яa-z])([а-яa-z]{2,})(?=[а-яa-z])/join('',shuffle(split('',$1)))/eg;
print "$text\n";
Практической пользы программа не несет, разве что прокачать навыки чтения и подгрузить мозг.
import System.Random
blendText :: String -> IO String
blendText s = sequence ( map blendWord (words s) ) >>= return . unwords
blendWord :: String -> IO String
blendWord w = rearrange (( tail . init ) w) >>= \x -> return ([head w] ++ x ++ [last w])
rearrange :: [a] -> IO [a]
rearrange [] = return []
rearrange (x:xs) = getStdRandom (randomR (0, (length (x:xs)) - 1))
>>= \n -> sequence [rearrange (take n xs), return [x], rearrange (drop n xs)]
>>= return . concat
%WinDir%\Microsoft.NET\Framework\v4.0.30319\csc.exe /optimize /target:winexe *.cs
Эффект Кембриджского университета