- 1
- 2
printfn "%A" <| [1,2,3,4,5].Length
printfn "%A" <| [1..5].Length
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+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
+144
Кто против выхода языка программирования Lapis - ставьте минус, кто за - плюс.
P.s. если наберётся 10 плюсов, дам интерпретатор.
P.p.s. если наберётся 10 минусов, никогда никому тут не дам интерпретатор :)
Ждём-с, пока пост наберёт +-10.
+118
put 'Сейчас я загадаю число от 1 до 100, и это будет..'
a = rnd(100)
put a.to_s + ' - загаданное число! В конце мы получим 4!'
b = a*2
put b.to_s + ' - это ' + a.to_s + ', умноженное на 2!'
c = b+8
put c.to_s + ' - это ' + b.to_s + ', к которому мы прибавили 8!'
e = c/2
put e.to_s + ' - это ' + c.to_s + ', которое мы разделили на 2!'
d = e-a
put d.to_s + ' - это результат. То есть мы отняли от ' + e.to_s + ' - ' + a.to_s + '. Видите, это же ' + d.to_s + '!'
С названием языка всё-таки решился, называл его "Lapis". (На Ruby синтаксис немного похож, но очень много будет отличий)!
Кто-нибудь хочет принять участие в разработке интерпретатора? Пишу на javascript-е, будет транслируемый язык.
Кто за, ставьте плюс посту и пишите в комментарии.
+143
Небольшие программки :)
Советую посмотреть и написать отзыв о любой из них.
Скачать >> http://coun.at.ua/stuff/1-1-0-122
+129
http://archive.today/9LWN
From: Linus Torvalds
I think goto's are fine, and they are often more readable than large
amounts of indentation.
+124
import elements
import functions
import system
error = 'Ошибок нет'
add = input ('Введите элемент, который вы хотите добавить в таблицу')
table = element.table
addToTable : add
if addTo.table : Successful {
put 'Ошибок нет' }
else
put error
system.exit
На случай, если друг подумает, что ничего не работает..
Писалось на языке без названия, не придумал ещё :)
+143
CFGDBFACADOEBFAAAACOABAOBBGAAODBFADCCCFDOGDACCOGAAAAAACOBDBGAAOCBGDEBDFDADGCBEDAABCOBEECBDAOECFCCFCCEOBDOAABDFOAOBDBOBGOBDBBEECBBAOOBADBADAEGAOCBEFAABCFDBGOAFGBGEBBDBBGBBGBEACOOACAAABCBDADGACAAABDOOAAFCBBDBODCBDFDCBEDAAACEAGACFDCADDFOBCCBOBDGEDEFBAAAABDAACDBDGODGBCBBDCOAEGAOBAEFBOEDGCCGEDBOCFDBEBBEFAOCACGBFEAAEBGFDOBCAADACAAECGEAABDBFACGBGECEGCDADBFACGABOCGGDFEABOCOGCFGCOAAAAAOEAAABGECCODAD
"Змейка" в машинных кодах на системе счисления wct. WctEditor - http://yadi.sk/d/i9Me1IQ7MbHCD.