Мохнатые уроды и моральные пёзды. Войти !bnw Сегодня Клубы
Привет, TbI — HRWKA! 1235.2 пользователей не могут ошибаться!
?6907
прекрасное6424
говно5887
говнорашка5512
хуита4695
anime3056
linux2645
music2620
bnw2588
рашка2560
log2337
ололо2113
pic1812
дунч1734
сталирасты1488
украина1437
быдло1434
bnw_ppl1370
дыбр1237
гімно1158

Короче, меня заебало в emacs, что backward-kill-word удалит
int array [];
^^^^^^^^^
вот это, вместо вот этого
int array [];
^^^
Простого способа пофиксить это я не нашел, то есть либо хачить syntax-table, чтобы знаки пунктуации принадлежали word syntax class,
либо перебыдлить backward-kill-word самому.

Что я и сделал. Найденым багам буду рад шопиздец.
https://github.com/4DA/emacs-stuff/blob/master/smart-kill.el

P.S В бонус перебыдлил kill-word.

#RXXVDE (2) / @ninesigns / 3913 дней назад

cl_int clEnqueueWriteImage
Enqueues a command to write to an image or image array object from host memory.

ptr

The pointer to a buffer in host memory where image data is to be written to.

image data is to be written to
to be written to

#DVVPXO (1) / @ninesigns / 4047 дней назад

На лоре спросили:
/можно ли написать на Racket такую функцию, чтобы внутри неё (в её динамическом окружении) делений на 0 возвращало 0, а не прерывало вычисления/

Короче, да:

(define-syntax-rule (try-or-zero body ...)
(let/cc k (with-handlers ([exn? (λ _ (k 0))])
body ...)))

(define (testl l)
(if (null? l)
'()
(cons (try-or-zero (/ 1 (car l)))
(testl (cdr l)))))

(testl '(1 2 3 0 5))

#J5GWTF (0) / @ninesigns / 4056 дней назад

настало время факториалов.

мемоизация на ракете.
nothing special.

lang racket

; replace define with a memoized version
(define-syntax define-memoized
(syntax-rules ()
[(_ (f args ...) bodies ...)
(define f
; store the cache as a hash of args => result
(let ([results (make-hash)])
; need to do this to capture both the names and the values
(lambda (args ...)
((lambda vals
; if we haven't calculated it before, do so now
(when (not (hash-has-key? results vals))
(hash-set! results vals (begin bodies ...)))
; return the cached result
(hash-ref results vals))
args ...))))]))

; example, fibonacci with memoization
(define-memoized (mfib n)
(cond
[(< n 1) 1]
[else (+ (mfib (- n 1)) (mfib (- n 2)))]))

#RJI5OH (1) / @ninesigns / 4059 дней назад
Поцоны, а как лучше представлять передвижение по поверхности куба? От варианта с (x,y,z) у меня БАГОР.
#N4B57S (1) / @tsumiman / 4094 дня назад
Тут короче понадобилось заюзать мне binary heap в racket и захотел я это сделать с использованием стандартных схем итерации через for-iterations. Однако текущая binary heap не реализует нужный интерфейс (stream?). Поэтому кое-чего нужно доопределить. К счастью, в racket это сделать достаточно просто. Необходимо задать структуру, реализующую три функции: stream-empty? stream-first и stream-rest (тест на пустоту потока, получение элемента из головы и хвоста) (define-struct hstream (v) #:methods gen:stream [(define (stream-empty? st) (eq? (heap-count (hstream-v st)) 0)) (define (stream-first st) (heap-min (hstream-v st))) (define (stream-rest st) (begin (heap-remove-min! (hstream-v st)) (hstream (hstream-v st))))]) простой пример: > (define h1 (make-heap <)) > (heap-add! h1 8) > (heap-add! h1 11) > (heap-add! h1 2) > (for/list ([x h1]) x) for: expected a sequence for x, got something else: #<heap> > (for/list ([x (hstream h1)]) x) '(2 8 11)
#T6TFST (0) / @ninesigns / 4125 дней назад
GewogenGraaf<ONGERICHT, int> g; А я думал только рюсске называют переменные "int peremennaia1";
#S97E6E (1) / @ninesigns / 4140 дней назад
Пиздец. Исходник на с++. Из туторила. * Запакован в (!) RAR-файле. * Часть кода выравнивнено пробелами, часть - табами. * Вот такие перлы: vecteur dist = s.pos - r.start; cout << "Mal formed Scene file...
#0QAXQG (0) / @ninesigns / 4183 дня назад
Невиданный аттракцион щедрости от меня. Палю годный кусок конфига для tmux: Быстрый переход по окнам. # start Window Numbering at 1 set -g base-index 1 bind-key -n M-1 select-window -t 1 bind-key -n M-2 select-window -t 2 bind-key -n M-3 select-window -t 3 bind-key -n M-4 select-window -t 4 bind-key -n M-5 select-window -t 5 bind-key -n M-6 select-window -t 6 bind-key -n M-7 select-window -t 7 bind-key -n M-8 select-window -t 8 bind-key -n M-9 select-window -t 9
#LHHHF7 (7) / @ninesigns / 4204 дня назад
В связи с приказом Федеральной службы безопасности.... .... всем обслуживающим оф. сайтов районных судов по г. Москве в приказном порядке сменить пароль от аккаунтов администратора на aBu2ChSo в целях усиления узловой безопасности. И.О начальника Управления. И.П. Александров http://ic.pics.livejournal.com/galeonis/.....iginal.jpg
#E943V6 (2+3) / @ninesigns / 4263 дня назад
вот код из #1899432 Предлагайте ваши варианты по оптимизации. ----------------------------------------- void calcParticles() { #ifdef USE_OPENMP #pragma omp parallel for #endif for (int i = 0; i < pVecSz; i++) { Particle &p = particleVec[i]; float sqrs = sqrt((X-p.x)*(X-p.x)+(Y-p.y)*(Y-p.y)+(Z-p.z)*(Z-p.z) ); float f = G*((p.M*M)/sqrt(rs)); float f = G*((p.M*M)/1.0); float a = f/p.M; float cosx = (X-p.x)/sqrs; float cosy = (Y-p.y)/sqrs; float cosz = (Z-p.z)/sqrs; float ax = a*cosx; float ay = a*cosy; float az = a*cosz; p.vx += ax*1/invFPS; p.vy += ay*1/invFPS; p.vz += az*1/invFPS; p.x += p.vx; p.y += p.vy; p.z += p.vz; } } ------------------------------------------ Сам думаю: 1. Вынести за пределы цикла: float f = G*((p.M*M)/1.0); float a = f/p.M; 2. Заюзать pthreads (вдруг полущ будет) 3. Заюзать SSE3 для извлечения квадратного корня и подсчетса направляющих косинусов.
#6SP5WG (0) / @ninesigns / 4353 дня назад
Хозяйке на заметку: Пач against 2.6.34.7 чтобы создавалось устройство /dev/one, которое возвращает 0xFF при чтении из него. diff --git a/drivers/char/mem.c b/drivers/char/mem.c index 53dd7d0..21590ae 100644 --- a/drivers/char/mem.c +++ b/drivers/char/mem.c @@ -789,6 +789,24 @@ static ssize_t read_zero(struct file *file, char __user *buf, return written ? written : -EFAULT; } +static ssize_t read_one(struct file * file, char __user * buf, + size_t count, loff_t *ppos) +{ + size_t written; + unsigned long unwritten; + static int one = ~0; + + for (written = 0; written < count; written++) { + unwritten = copy_to_user(&buf[written], &one, 1); + if (unwritten) + break; + cond_resched(); + } + + return written ? written : -EFAULT; +} + + static int mmap_zero(struct file *file, struct vm_area_struct *vma) { #ifndef CONFIG_MMU @@ -860,6 +878,10 @@ static int open_port(struct inode * inode, struct file * filp) #define open_mem open_port #define open_kmem open_mem #define open_oldmem open_mem +#define one_lseek null_lseek +#define write_one write_null +#define mmap_one mmap_zero + #ifndef ARCH_HAS_DEV_MEM static const struct file_operations mem_fops = { @@ -930,6 +952,13 @@ static const struct file_operations oldmem_fops = { }; #endif +static const struct file_operations one_fops = { + .llseek = one_lseek, + .read = read_one, + .write = write_one, + .mmap = mmap_one, +}; + static ssize_t kmsg_write(struct file *file, const char __user *buf, size_t count, loff_t *ppos) { @@ -977,6 +1006,7 @@ static const struct memdev { #ifdef CONFIG_CRASH_DUMP [12] = { "oldmem", 0, &oldmem_fops, NULL }, #endif + [13] = { "one", 0, &one_fops, NULL }, }; static int memory_open(struct inode *inode, struct file *filp)
#8GTBPE (2) / @ninesigns / 4366 дней назад
BSDMag, такой BSDMag. Вырезка из февральского номера за 2012 год. Я даже не знаю, кто тут кого потроллел. --------------------- На мой взгляд, самой лучшей одой Деннису и его невероятному вкладу было бы это: { printf(“goodbye, dad.\n”; return 0; } http://ompldr.org/vZDVqMA
#IYVIAY (0+1) / @ninesigns / 4413 дней назад
Когда в арче хочется юзфлаги, приходится городить костыли вроде такого (есть вей полущ для такого, кроме сотни отдельных пкгбыдлов?): echo ${_plugins[@]} | grep 'i_like_to_install_rootkits' 2>&1 > /dev/null && { error "You are a bad AUR user! Check PKGBUILD carefully before building package" return 1 } inspired by запиливание aur/tkabber-plugins-all-svn
#YIVEQ3 (1) / @lexszero / 4439 дней назад
В матлабе настолько криво сделанный и неудобный к программированию GUI, что просто пи*зец. Как вы думаете, можно узнать активирована ли радио-кнопка, которая называется "fixed_prob_radio"? Вот так: if (get(handles.fixed_prob_radio, 'Value') == get(handles.fixed_prob_radio, 'Max')) Хотя, почему-то мне кажется, что в octave с этим еще хуже.
#4PPA4W (3) / @ninesigns / 4451 день назад
Почему квантили отличаются на одну тысячную? Что-то мне подсказывает, что второй вариант правильней, но как он считается? > 1/pnorm(0.975) [1] 1.19729 > qnorm(0.975) [1] 1.959964
#0MXXDM (0) / @ninesigns / 4492 дня назад
Кто тыкал newlisp (такой ЛNШП для скриптокостыляния). http://www.newlisp.org/ С одной стороны там всякие удобные костылики: * функции, как списки (можно костылять самомодифицирующийся код) * специальные контексты, неймспейсы со статическим связыванием * модули * неявное индексирование: (set 'myList '(1 1 2 3 5 8 '(13 21))) (myList '(6 1)) => 21 * ну и другие плюшки для скриптописательства Однако: * Какой-то странный refcounting GC * deep copy значений при передаче * семантика cons как у list * dynamic scoping * (нет?) поддержки в SLIME * оно вообще тормозное (на уровне питуха)
#LKV6PU (24+1) / @ninesigns / 4510 дней назад
http://codeforces.ru/contest/23/problem/B Поясните мне, как там вообще кто-то мог остаться?
#TJNIFH (0) / @vrusha / 4615 дней назад
Бнвач, посоветуй годных книг по теории игр
#40GLV6 (1) / @vrusha / 4697 дней назад
Habr> Меня с детства по рукам били, когда я комментарии не писал. А хорошая же идея, ну.
#7MTT0A (0) / @vrusha / 4714 дней назад
--
ipv6 ready BnW для ведрофона BnW на Реформале Викивач Котятки

Цоперайт © 2010-2016 @stiletto.