A kto się pokusi o program w LLoP?
Starzy bywalcy zapewne pamiętają tę rewolucję w programowaniu [diabel]
//za trudne toto... [rotfl] :[ - lofix
/* Maciek, z tym to już przegiąłeś... To chyba tylko sam twórca jest w stanie [rotfl] */
konkursik [1500 downto 0]
- Rejestracja: dni
- Ostatnio: dni
- Lokalizacja: Poznań
0
- Rejestracja: dni
- Ostatnio: dni
0
O ile zle nie widzialem to nikt nie napisal tego w whitespaces :P Co nikt nie potrafi? Tacy z was programisci? :> Ja tylko daje pomysl w czym jeszcze mozna bo do 0 jeszcze bardzo daleko :>
//ee, Kuba dawno to zrobił - nie śledzisz uważnie :P - M
/* Bo napisałem w whitespace, to pewnie dlatego przeoczył :P */
- Rejestracja: dni
- Ostatnio: dni
- Postów: 501
0
1415:
W LLoP-ie powinno byc chyba cos takiego ( nie wiem, nie mam interpretera :P A szkoda :D )
Procedure Button1Click(Sender: TObject);
Begin
Wypisz_liczbe_1415;
End;
:D
//poprawiłem liczbę 1145 na 1415 - M
//Dzieki ;P -Wasyl
//P.S Dryo, masz moze namiary na interpreter RedCode, ale coby pod WinXP chodzil???
- Rejestracja: dni
- Ostatnio: dni
0
1414 w Redcode (asembler używany w Core War).
Wypełnia całą pamięć kodem "dat #14, #14", czyli obydwa pola A i B tworzą razem 1414:
;redcode-94
;name konkurs 1500
;autor Dryobates
dat #14, #14
add #1, 3
mov -2, @2
jmp -2
dat #0, #0
END
Program kończy się jak wypełni całą pamięć (oprócz własnego kodu) kodem "dat #14, #14", lub inny wojownik wykończy go :P
- Rejestracja: dni
- Ostatnio: dni
0
Nemerle, 1413
module Hello {
Main(): void {
Nemerle.IO.printf("1413\n");
}
}
- Rejestracja: dni
- Ostatnio: dni
0
#include <windows.h>
int WINAPI WinMain(HINSTANCE hInstance,HINSTANCE hPrevInstance,LPSTR lpCmdLine,int nCmdShow)
{
MessageBox(NULL,"1412","Liczba",MB_OK);
return 0;
}
- Rejestracja: dni
- Ostatnio: dni
0
Prolog - 1411:
konkurs :-
printstring("1411").
printstring([]).
printstring([H|T]) :- put(H), printstring(T).
- Rejestracja: dni
- Ostatnio: dni
0
Odwrotna Notacja Polska (ONP), 1410:
2 1000 * 3 250 * - 480 3 / +
- Rejestracja: dni
- Ostatnio: dni
- Lokalizacja: Wdzydze
0
Miva - 1409
<mvwhile expr="1"> 1409</mvwhile>
- Rejestracja: dni
- Ostatnio: dni
- Lokalizacja: Poznań
0
<font color="brown">język: Smalltalk
liczba: 1408</span>
Transcript show:'1408';cr
- Rejestracja: dni
- Ostatnio: dni
0
Specyfikacja Algorytmu dla n = 1407
Dane:
liczby a= 1000
b= 400
c= 0
d= 7
Wynik:
suma liczba s := a + b + c +d
krok 1 : początek algortymu
krok 2 : dodawanie liczb s := a +b +c + d;
krok 3 : wypisz s;
krok 4 : koniec algortymu
- Rejestracja: dni
- Ostatnio: dni
0
ANSI C, 1406
#include <stdio.h>
int f(int *a,char b)
{
printf("%c%s",b,(*a>>=1)?"":"\n");
}
int doit(int a,int b,int c,int d,int e)
{
!a?!b?!c?!d?!e?0:e>>1<<1^e?f(&e,35):f(&e,32):d>>1<<1^d?f(&d,35):f(&d,32):
c>>1<<1^c?f(&c,35):f(&c,32):b>>1<<1^b?f(&b,35):f(&b,32):a>>1<<1^a?f(&a,35):f(&a,32);
a|b|c|d|e?doit(a,b,c,d,e):0;
}
main()
{
doit(30546,5459,30066,21826,30535);
getchar();
}
- Rejestracja: dni
- Ostatnio: dni
0
OmniMark - 1405:
process
output "1405"
- Rejestracja: dni
- Ostatnio: dni
- Lokalizacja: Wdzydze
0
CGI w C - wynik 1404
#include <stdio.h>
main ()
{
printf ("Content-type: text/html\n");
printf ("\n");
printf ("<html>\n");
printf ("<head>\n");
printf ("<title>1404</title>\n");
printf ("</head>\n");
printf ("\n");
printf ("<body>\n");
printf ("<h1>1404</h1>\n");
printf ("</body>\n");
printf ("</html>\n");
}
// poprawiłem, wstawilem < > zamiast & lt i & gt, ale czy dobrze ? [mf]
- Rejestracja: dni
- Ostatnio: dni
0
typedef unsigned long ulong;
typedef unsigned char uchar;
void wait(ulong dt=2){
violatile ulong& timer=*((ulong far*)0x0000046cL);
dt+=timer;
while(timer<dt);
}
int main(){
uchar far* font;
asm{
mov ax,0x1202
mov bl,0x30
int 0x10
mov ax,0x0003
int 0x10
mov ax,0x1003
xor bl,bl
int 0x10
mov ax,0x1111
xor bl,bl
int 0x10
push es
push bp
mov ax,0x1130
mov bh,0x06
int 0x10
mov ax,es
mov bx,bp
pop bp
pop es
mov [word ptr font+0],bx
mov [word ptr font+2],ax
mov ah,0x02
xor bh,bh
mov dx,0xffff
int 0x10
}
char* s="1403 by flabra ;)";
int i=0,j,k;
do{
j=14;
while(j--){
k=8;
while(k--)
if((font[(int(s[i])*16)+j]>>(7-k))&1){
unsigned far* e=(unsigned far*)0xb8000005L+j*160+i*20+k*2;
unsigned dy=160;
while(dy){
dy-=80;
unsigned dx=2;
while(dx--)*((uchar*)(e+dy+dx))=0xf0;
}
}
}
wait();
}while(++i<4);
i=2160;
while(*s)*(((unsigned far*)0xb8000000L)+(i++))=(uchar)(*(s++))|0x0e00;
i=0;
*((uchar far*)0xb8000001L)=0x0f;
while(i++<15){
j|=((j=(*((uchar far*)0xb8000001L))&0x0f)^=i)<<4;
k=4480;
while(k--)*((uchar far*)0xb8000000L+(k--))^=j;
wait();
}
wait(20);
asm{
mov ax,0x0003
int 0x10
}
return 0;
}
Za to kocham własnie tryb realmode procka, za mozliwosc grzebania w pamieci bez końca :)
// proponuje odpalic to nie w okienku, tylko na pełnym ekranie, da bardziej po oczach ;>
//program zawiesza mi się na pierwszym wywołaniu wait(); (mimo fałszywego warunku while(timer<dt); nie kończy się nigdy :| (Bornand C++ 3.1) - M
// hmm, a wez zmien na ktorys z wiekszych modeli... ja to kompilowalem wlasnie pod 3.1 i zeby bylo smieszniej tym od ciebie. a moze to kwestia systemu ? pod 98 smiga... bardzo byc w sumie moze, wiec w takim razie jakis sleep, czy inny delay/ Albo tez optymalizacja ... dorzucic violatile ?
- Rejestracja: dni
- Ostatnio: dni
0
- Rejestracja: dni
- Ostatnio: dni
0
Wybrałem kategorię ? i dlatego następny, kto napisze jakiś kod musi podać w jakim języku jest napisany ten kod :
begin
integer wynik;
integer i,n;
begin
integer a,b,c,d;
a := 1;
b := 4;
c := 0;
d := 1;
wynik := (a * 1000) + (b * 100) + (c * 10) + (d * 1);
end
n := READ;
for i := 0 step 1 until n do PRINT ( wynik );
end
Już wiecie ?? [???]
Jak zauważyłem coś ostatnio wolno idzie, więc zmieniam troszkę zasady :
- każdy po swoim kodzie pisze, co musi się <ort>znaleŹć</ort> w następnym post'cie.
Będzie ciekawiej [diabel]
//bezsens...a jak ja na przyklad tobie kaze napisac cos w postscript`cie? [mL]
- Rejestracja: dni
- Ostatnio: dni
0
.MODEL
.DOSSEG
.STACK
.DATA
napis db '1400 ',10,13,'$'
.CODE
.STARTUP
mov ax,seg napis
mov ds,ax
lea dx,napis
mov ah,09h
int 21h
.EXIT 0
END
- Rejestracja: dni
- Ostatnio: dni
0
verilog - 1399:
module top;
initial
$display("1399");
endmodule
- Rejestracja: dni
- Ostatnio: dni
- Lokalizacja: Wdzydze
0
Gambas - 1398
{ 1398 Form
Move(366,0,400,400)
Text = ("")
Border = Window.Fixed
{ Button1 Button
Move(40,64,320,176)
Text = ("1398")
}
}
- Rejestracja: dni
- Ostatnio: dni
0
// Pseudo C++ :D
Komputer[ my ].Ekran.WriteAtLine( 1, IntToStr( 1397 );
- Rejestracja: dni
- Ostatnio: dni
0
Sorki że znów delphi ale takiego sposobu jeszcze nie było :); Liczba: 1396
var B:TBitmap; i,X,Y:integer;
begin
B:=TBitmap.Create;
B.Width:=150; B.Height:=50;
B.Canvas.Font.Size:=150; B.Canvas.Font.Height:=50;
B.Canvas.Font.Color:=clBlack;
B.Canvas.TextOut(0,0,IntToStr(1396));
i:=0;
repeat
i:=i+1;
X:=random(150)+1;
Y:=random(50)+1;
if B.Canvas.Pixels[X,Y]=clBlack then Form1.Canvas.Pixels[X,Y]:=clBlue;
if (i mod 2)=0 then sleep(1);
until i=15000;
end;
- Rejestracja: dni
- Ostatnio: dni
- Postów: 2964
0
Oracle Express Language (polecam: naprawde wyrabisty jezyk :D), 1395:
limit district to all
limit month to 'Jan05'
variable counter numeric
counter = 0
for month
do
limit day to month
for day
do
counter = counter + 45
doend
doend
show counter
BTW:
Komputer[ my ].Ekran.WriteAtLine( 1, IntToStr( 1397 );
bulbin.post.cpp:3: Parse error before ';'.
- Rejestracja: dni
- Ostatnio: dni
0
BTW:
Komputer[ my ].Ekran.WriteAtLine( 1, IntToStr( 1397 );
bulbin.post.cpp:3: Parse error before ';'.
fomcl... niesparowane nawiasy [rotfl]
- Rejestracja: dni
- Ostatnio: dni
- Postów: 196
0
Język: CBS [by BoreK] ;>
Kod:
[SCHEMES]
{
I:JakaLiczba;
O:contain("1394");
}
[CLASSES]
{JakaLiczba;
Jaka liczba?, Podaj liczbę, blebleble ;p, liczba
}
[ABOUT]
klsjdfiuash.. sdkfjhs
- Rejestracja: dni
- Ostatnio: dni
0
Occam - 1393:
-- occam
PROC write.string(CHAN output, VALUE string[])=
SEQ character.number = [1 FOR string[BYTE 0]]
output ! string[BYTE character.number]
write.string(terminal.screen, "1393")
- Rejestracja: dni
- Ostatnio: dni
- Postów: 650
0
prolog:
1392
1?- X is 1393-1.
:0
ps. Co to jest <ort> ort! </ort> [???] [???] [???]
// Tak się oznacza błędy ortograficzne - Q
// Thx, a nie lepiej zrobić np. coś_z_błędem (ort!) wtedy to będę wiedział o co autorowi chodzi, a czasami to wręcz niemożliwe ;(
// ciekawe zjawisko... im ktoś krócej na forum tym chętniej wprowadzałby zmiany ;] [mf]
- Rejestracja: dni
- Ostatnio: dni
- Lokalizacja: Wdzydze
0
SAS - 1391
// EXEC SAS
//SAS.SYSIN DD *
DATA NPUT;
INPUT OUT $CHAR4.;
CARDS;
1391
PROC PRINT;
/*
- Rejestracja: dni
- Ostatnio: dni
0
Scheme dla GIMPa (Script-fu) - 1390:
(define (konkurs)
(set! img (car (gimp-image-new 200 200 RGB)))
(set! layer (car (gimp-layer-new img 200 200 RGB "layer 1" 100 NORMAL)))
(gimp-image-add-layer img layer 0)
(gimp-palette-set-background '(128 255 128))
(gimp-edit-fill layer BG-IMAGE-FILL)
(set! text-float (car (gimp-text-fontname img layer 30 60 "1390" 0 1 50 0 "-*-utopia-*-r-*-*-*-*-*-*-*-*-*-*")))
(gimp-floating-sel-anchor text-float)
(gimp-display-new img)
)
- Rejestracja: dni
- Ostatnio: dni
- Postów: 3
0
Język: fook (http://gophi.rulez.pl/t/fook.txt)
Liczba: 1389
foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo shmoo foo foo foo foo shmoo foo foo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo foo foo shmoo shmoo foo shmoo foo foo foo shmoo foo foo shmo o foo foo shmoo foo shmoo foo foo shmoo shmoo foo foo shmoo foo foo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo shmoo foo foo foo foo shmoo foo foo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo foo foo shmoo shmoo foo shmoo foo foo foo shmoo foo foo shmoo foo foo foo shmoo foo shmoo foo shmoo shmoo foo foo shmoo foo foo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo shmoo foo foo foo foo shmoo foo foo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo foo foo shmoo shmoo foo shmoo foo foo foo shmoo foo foo shmoo foo foo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo shmoo foo foo shmoo foo foo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo shmoo foo foo foo foo shmoo foo foo foo shmoo foo shmoo foo shmoo foo shmoo
foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo
foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo
foo foo foo shmoo shmoo foo shmoo foo foo foo shmoo foo foo shmoo foo foo foo sh
moo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo sh
moo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo foo shmoo shmoo foo