Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+129
# Превратим входную строку в вектор, и отсортируем
used_letter <- sort(strsplit(s, "")[[1]])
# Находим самый большой используемый индекс(у нас уже есть гарантии, что в строке остались только допустимые символы)
big_letter <- used_letter[length(used_letter)]Оригинальный способ поиска максимального элемента в массиве
alineman,
27 Октября 2014
+132
Opt("WinTitleMatchMode", 2) ; нечувствительность к неточным именам заголовков
WinWaitActive("Total Commander") ; ждать активации Тотала
Send("{TAB}") ; перейти в соседнюю (от панели, где лежит скрипт) панель
Send("!^{F12}") ; глобал хоткей Ctrl+Alt+F12 Пунто Свитчера = вырубить автопереключение (чтоб не мешал)
Send("{END}") ; перейти в конец списка файлов в Тотале (папок в конце списка точно нет)
Send("сmd") ; вызвать заранее в Тотал-консоли cmd-консоль (у меня Тотал-консоль (sic!) вдруг забастовала насчёт дос-команды move)
Send("{ENTER}")
WinWaitActive("cmd.exe") ; дождаться появления cmd-консоли
$count = 0 ; счётчик для цикла-1 в положении "включено"
Do ; цикл-1
WinActivate("Total Commander") ; повторная активация Тотала
ClipPut("") ; опустошение буфера
$namefull = "" ; опустошение переменной памяти, подготовка к циклу-2
Do ; цикл-2
Send("{F11}") ; хоткей Тотала F11 = cm_CopyNamesToClip, взять имя файла в буфер
$namefull = ClipGet() ; заполнить переменную памяти из буфера ("картинка_by_автор-хэш.png")
Until $namefull <> "" ; хреначить цикл-2, пока переменная точно не заполнится
If StringInStr($namefull, ".") > 0 Then ; условие-1 если это файл, то
If StringInStr($namefull, "_by_") > 0 Then ; условие-2 если этот файл девиантартовский, то
$nameright = StringSplit ($namefull, "_by_", 1) ; порвать имя файла на начало и хвост ($nameright[2] = "автор-хэш.png")
$name = StringSplit ($nameright[2], "-") ; у хвоста оторвать кончик (оставив "автор" в name[1])
WinActivate("cmd.exe") ; активировать cmd-консоль
$newname = "md " & $name[1] & " & move " & $namefull & " " & $name[1] ; набить цепь из трёх дос-команд на создание папки, перенос картинки в неё
Send($newname) ; послать эту цепь в cmd-консоль
Send("{ENTER}")
Else ; иначе-2 (напоролся на девиантарт-неформатный файл)
Send("{UP}") ; листнуть выше
EndIf ; конец условия-2
Else ; иначе-1 (напоролся на папку)
$count = 1 ; счётчик для цикла-1 в положении "выключено"
EndIf ; конец условия-1
Until $count <> 0 ; хреначить цикл-1, пока не сработает счётчик остановки
WinActivate("cmd.exe") ; активировать cmd-консоль
Send("exit") ; дать команду на выход
Send("{ENTER}")
Send("!^{F12}") ; врубить автопереключение Пунто Свитчера обратно
Beep () ; дать звуковой сигналСкрипт для AutoIt (который сам по себе костыль), который рассортировывает кучу скачанных с девиантарта файлов по папкам. Но КАК он это делает!
Conner,
17 Октября 2014
+122
slu4ajnoe4islo interval xyuma = unsafeDupablePerformIO (if xyuma==xyuma then randomRIO interval else undefined)
GovnoGovno,
15 Октября 2014
+132
@font-face {
font-family: 'MyWebFont';
src: url('webfont.eot#') format('eot'),
url('webfont.woff') format('woff');
}
Если в «src» поместить больше одного формата шрифта, то IE не сможет загрузить его и сообщит об ошибке 404. Причина в том, что IE пытается использовать как адрес файла всё, что записано после первой открывающей скобки и до самой последней закрывающей скобки.
IE как всегда в своём стиле...
bormand,
09 Октября 2014
+140
(ð“¹ð“»ð“²ð“·ð“½ "ð“—ð“®ð“µð“µð“¸, ð“¦ð“¸ð“»ð“µð“!")
В продолжение темы юникода. К сожалению, крестокомпилятор не захотел кушать эти символы, а в других языках нет препроцессора. Поэтому пришлось на лиспе.
http://ideone.com/14yidz
bormand,
08 Октября 2014
+133
lc = $(subst A,a,$(subst B,b,$(subst C,c,$(subst D,d,$(subst E,e,$(subst F,f,$(subst G,g,$(subst H,h,$(subst I,i,$(subst J,j,$(subst K,k,$(subst L,l,$(subst M,m,$(subst N,n,$(subst O,o,$(subst P,p,$(subst Q,q,$(subst R,r,$(subst S,s,$(subst T,t,$(subst U,u,$(subst V,v,$(subst W,w,$(subst X,x,$(subst Y,y,$(subst Z,z,$1))))))))))))))))))))))))))
VAR = MixedCaseText
LOWER_VAR = $(call lc,$(VAR))
all:
@echo $(VAR)
@echo $(LOWER_VAR)
как реализовать портабельно lowercase функцию в GNU Make.
как же я тебя временами лублу, мэйк.
ЗЫ было случайно найдено в http://stackoverflow.com/questions/664601/in-gnu-make-how-do-i-convert-a-variable-to-lower-case
Dummy00001,
06 Октября 2014
+129
#audio_mouse_sensor
position absolute
top -1000000px
left -1000000px
width 0
height 0
z-index 10000000000
&.expanded
width 10000000px
height 10000000px
//background redсвежий коммит css (stylus) в проекте
makc3d,
30 Сентября 2014
+175
http://www.intel.com/content/dam/www/public/us/en/documents/specification-updates/xeon-e3-1200v3-spec-update.pdf
http://www.anandtech.com/show/8376/intel-disables-tsx-instructions-erratum-found-in-haswell-haswelleep-broadwelly
На этот раз мне зогплатила амд, и принёс вам почитать.
3.14159265,
24 Сентября 2014
+127
https://www.marshut.net/knqkut/dijkstra-s-methodology-for-secure-systems-development.htmlУчитесь троллить! (Я подписался на рассылку запостить пару багов, а тут...)
wvxvw,
20 Сентября 2014
+128
<a href="#" id="foo" onclick="this.nextSibling.style.display=''; return!1;">Click here for view</a><p style="display: none;">
<noscript>
</p>
<style type="text/css"> a#foo { display:none; } </style>
<p>
</noscript>
/*... some info ...*/
</p>Баян, не? Вот. Наговнокодилось. captcha=5555
istem,
18 Сентября 2014
Follow us!