- 1
- 2
put = "hello"
put put # Гениально!
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+126
put = "hello"
put put # Гениально!
Ну что же, открылся онлайн интерпретатор Lapis-а на отдельном сайте!
http://lapis.at.ua/Lapis.htm
+138
Аватар:
Привет, Пахомыч
Слушай друг, будь ласка, смени пжлст свою аватарку на чтонить попроще, ну очень ужасная - попртит общую картину
Тролль:
С указанной Вами личностью я не знаком.
Теперь насчет авы: это не Ваше дело. Мне например, не нравится Ваш аватар, однако, я же не прошу его сменить.
Аватар:
Всё же прошу покорнейше, пжлст, смени аву
Тролль:
Ну хорошо, если это так сильно Вас беспокоит, я пойду навстречу. [поставил зеленый троллфейс]
Аватар:(цитирует)
Мне лично абсолютно наплевать на всё - мало-ли какие закидоны бывают у различной шешуры, но вот форуму в целом, нет.
Пахомыч, чувак, ти случайно не заметил что тебе слегка репу опустили? Если нет, то посмотри, подивись.
Следующей будет временная баня - тебе это надо? А ведь ещё есть вечный бан, затем блокировка по IP и мылу
(это если ты опять никулю сменишь), передача его в К7 для последующей мозгоправки, много чего ещё есть
Пжлст, смени аву
Адекватен ли этот человек? Вот как не пойти, и не зафлудить/завайпать форум, где сидят такие упоротые?
Но это больше админ местный виноват, продажная скотина.
Все началось с того, что на форуме http://www.delphisources.ru/forum я поставил на аву красный троллфейс.
+132
<!--php session_start(); include('blocks/sessions.php'); -->
Комментарии в php? Не, не слышали
+118
Пример 1.
def rnd20
put rnd(0..20)
end
rnd20
Пример 2.
Нахождение корней квадратного уравнения.
def sqrt(num, prec)
number = num / 2.0
while(((rsq = number**2) - num > prec))
root -= (rsq - num) / (2.0*number)
end
return number
end
a = 2
b = 10
c = 12
d = b**2-(4*a*c)
put 'Дискриминант равен: ' + d.to_s + '.'
x1 = -b-sqrt(d,1)/2*a
x2 = -b+sqrt(d,1)/2*a
put 'X1 = ' + x1.to_s + ', X2 = ' + x2.to_s + '.'
Онлайн интерпретатор Lapis-а тут : http://pma.clan.su/Lapis.htm. Пишите ваши отзывы!
+131
ГовноКод.ру - это отличный русскоязычный ресурс, аналогов которому по количеству пользователей и новым говнокодам нет.
На нем сидит множество толковых парней, таких например как Борманд, laMer007, inkanus-gray и тд, и мне лично их комментарии всегда интрестно почитать.
Но всё желание пользоваться сайтом отбивает модерация, которой попросту нет.
Один или несколько пользователей, типа Стертор или как его там, просто убивает ресурс, портит ветки комментов, пишет сам себе и отвечает сам себе, спамит.
Это нужно как-то решать или ресурс умрёт, потому что просто игнорировать молодняк уже не получится.
Может ввести на сайте пару баннеров рекламы и нанять модератора?
Может закрыть доступ писать без учетки? Временно можно даже добавлять комменты только после модерации.
Я не веб программист, и не знаю всех нюансов, но ведь должы быть способы избавиться от этого спама?
Побуду немного экстрасенсом, сейчас появится коммент "Въебал минус"
Извините, наболело, не могу больше в себе это держать
+127
let inline id a = a
let inline const1 value _ = value
let inline applyNTimes f n s =
let fs = Seq.init n <| const1 f
let fa = Seq.fold (>>) id fs
fa s
+126
printfn "%A" <| [1,2,3,4,5].Length
printfn "%A" <| [1..5].Length
F#
http://ideone.com/A2DZPr
+133
open System
let inline un激辛カレー<'a> (f:obj) (tuple:obj) =
match tuple with
| :? ('a * 'a * 'a) as tuple ->
let a , b , c = tuple
match f with
| :? ('a -> 'a -> 'a -> 'a) as f -> f a b c
| _ -> failwith "type did not matched! 3"
| :? ('a * 'a) as tuple ->
let a,b = tuple
match f with
| :? ('a -> 'a -> 'a) as f -> f a b
| _ -> failwith "type did not matched! 2"
| :? 'a as tuple ->
let a = tuple
match f with
| :? ('a -> 'a) as f -> f a
| _ -> failwith "type did not matched! 1"
| _ -> failwith "type did not matched! tuple"
printfn"%A"<| un激辛カレー<float> (fun x->x + 1.) 2.
printfn"%A"<| un激辛カレー<int> (+) (10,10)
printfn"%A"<| un激辛カレー<string> (fun (x:string) y z->x + y + z) ("How ","are ","you?")
+139
Представляю Вашему вниманию новейший минусатор: http://rghost.ru/54852059
Исправлены многие ошибки предыдущих версий. Не побрезгуйте, родимые!..
Новейший минусатор для творения непотребностей с рейтингом.
+117
DataSection
Data.f 0.0025,0.0026,0.00235
EndDataSection
Global SCREENWIDTH,SCREENHEIGHT
Define .f:bitplanes.b=32
SCREENWIDTH=GetSystemMetrics_(#SM_CXSCREEN)
SCREENHEIGHT=GetSystemMetrics_(#SM_CYSCREEN)
If InitSprite()=0 Or InitSprite3D()=0 Or InitKeyboard()=0
MessageRequester("Error","Can't access DirectX",0)
End
EndIf
desktop.l = CreateImage(0,DesktopWidth(0),DesktopHeight(0))
hdc.l = StartDrawing(ImageOutput(0))
SelectObject_(hdc,desktop)
BitBlt_(hdc,0,0,DesktopWidth(0),DesktopHeight(0),GetDC_(GetDesktopWindow_()),0,0,#SRCCOPY)
StopDrawing()
DeleteDC_(hdc)
While OpenScreen(SCREENWIDTH,SCREENHEIGHT,bitplanes.b,"FullScreen")=0
If bitplanes.b>16
bitplanes.b-8
ElseIf SCREENHEIGHT>600
SCREENWIDTH=800
SCREENHEIGHT=600
ElseIf SCREENHEIGHT>480
SCREENWIDTH=640
SCREENHEIGHT=480
ElseIf SCREENHEIGHT>400
SCREENWIDTH=640
SCREENHEIGHT=400
ElseIf SCREENHEIGHT>240
SCREENWIDTH=320
SCREENHEIGHT=240
ElseIf SCREENHEIGHT>200
SCREENWIDTH=320
SCREENHEIGHT=200
Else
MessageRequester("Listen:","Can't open Screen!",0)
End
EndIf
Wend
w=DesktopWidth(0)
h=DesktopHeight(0)
z=1000/Sqr(3)
perspw=w
PerspectiveAngle.d=#PI/16
CreateSprite(0,w,h,#PB_Sprite_Texture)
StartDrawing(SpriteOutput(0))
DrawImage(ImageID(0),0,0)
StopDrawing()
DisplaySprite(0,0,0)
FlipBuffers()
DisplaySprite(0,0,0)
CreateSprite3D(0,0)
x3=w-1
x4=0
y3=h
y4=h
z3=z
z4=z
For t.b=1 To 3
omega=-omega
Read alfa
Repeat
ExamineKeyboard()
ClearScreen(0)
Incrz=h*Sin(Angle)
x1=Incrz*Tan(PerspectiveAngle)
x2=x3-x1
y1=h-h*Cos(Angle)
y2=y1
z1=z+Incrz/4.75
z2=z1:Start3D()
TransformSprite3D(0,x1,y1,z1,x2,y2,z2,x3,y3,z3,x4,y4,z4)
DisplaySprite3D(0,0,0,255)
Stop3D()
omega+alfa
If omega<0
Angle-Pow(omega,2)
Else
Angle+Pow(omega,2)
EndIf
If Angle<0 Or Angle>4/5*#PI
Break
EndIf
FlipBuffers()
Delay(10)
Until KeyboardPushed(#PB_Key_Escape)
Next
DisplaySprite(0,0,0)
FlipBuffers()
Delay(10)
DisplaySprite(0,0,0)
Очень интересный эффект - экран "отшатывается" от юзера :)
Для компиляции понадобится PureBasic не ниже 4.50