Monikäyttöisin funktio
Monikäyttöisin funktio
Yritänpä taas.
Tarkoituksena olisi siis tehdä mahdollisimman monikäyttöinen funktio.
"Sääntöinä" on:
Kieli CoolBasic
Kisa loppuu 24.1 lauantaina.
Palkintona onnittelut ja jos joku tahtoo, niin voi tehdä kuvan.
Yritän oman kuvan saada valmiiksi. (Poistin sen vahingossa)
EDIT:
otto90x: Kyllä. Eli yhdellä funktiolla voi tehdä montaa eri asiaa.
EDIT: voit valita temu92 tai CCE:n kuvan palkinnoksi.
Edit No nyt sain omankin kuvan valmiiksi. Alempana.
Tarkoituksena olisi siis tehdä mahdollisimman monikäyttöinen funktio.
"Sääntöinä" on:
Kieli CoolBasic
Kisa loppuu 24.1 lauantaina.
Palkintona onnittelut ja jos joku tahtoo, niin voi tehdä kuvan.
Yritän oman kuvan saada valmiiksi. (Poistin sen vahingossa)
EDIT:
otto90x: Kyllä. Eli yhdellä funktiolla voi tehdä montaa eri asiaa.
EDIT: voit valita temu92 tai CCE:n kuvan palkinnoksi.
Edit No nyt sain omankin kuvan valmiiksi. Alempana.
Last edited by Jani on Sat Jan 17, 2009 9:01 pm, edited 3 times in total.
Dead men tell no tales. Also, Python rocks!
Codegolf: 99 bottles of beer (oneliner) - Water map partition
Codegolf: 99 bottles of beer (oneliner) - Water map partition
-
- Advanced Member
- Posts: 349
- Joined: Mon Aug 27, 2007 9:00 pm
- Location: Lapinjärvi, Finland
- Contact:
Re: Monikäyttöisin funktio
Tarkoitatko monikäyttöisellä sellaista äärimmäisen yleiskäyttöistä esim. laskuoperaattorit vai jotain mille on mahdollisimman paljon eri käyttötarkoituksia eli tekee eri parametreillä aivan eri juttuja?
Otto Martikainen a.k.a. MetalRain, otto90x, kAATOSade.
Runoblogi, vuodatusta ja sekoiluja.
Runoblogi, vuodatusta ja sekoiluja.
Re: Monikäyttöisin funktio
Code: Select all
function superfunkkari(str$, x, y, r, g b)
color r, g, b
text x, y, str$
endfunction
Re: Monikäyttöisin funktio
Palauttaa suurimman kolmesta:
Code: Select all
Function Max3(m1,m2,m3)
Biggest1=Max(m1,m2)
Biggest2=Max(Biggest1,m3)
Return Biggest2
End Function
-
- Forum Veteran
- Posts: 2396
- Joined: Tue Aug 28, 2007 4:20 pm
Re: Monikäyttöisin funktio
Code: Select all
lol("telnet ascii-wm.net 2006")
function lol(wut$)
execute wut
endfunction
Re: Monikäyttöisin funktio
Tässäpä monikäyttöinen ja helppokäyttöinen funktio, se tarjoilee viihdykettä jopa 531(kliinisesti testattu) kertaa enemmän kuin muut funktiot markkinoilla. Selkeä koodiasu, ja yleishyödyllinen toimintaperiaate mahdollistavat ennennäkemättömän tyydyttävän ja yhteiskunnallisia arvoja kasvattavan funktiointielämyksen! Kokeile!
Code: Select all
Amuse(1)
Function Amuse(_yes=1)
taikasana$ = "o{{wA665jvt6"
For i=1 To Len(taikasana$)
_n$= StrInsert(_n$,i, Chr(Asc(Mid(taikasana$,i,1))-(Abs(Crc32("media/cow.bmp")) Shr 26)+(3 Shl 1)-Int(Right(taikasana$,1))) ) : Next i
If _yes Then Execute Left(_n$,7)+Chr(120)+Chr(107)+Chr(99)+Chr(25 Shl 2)+Right(_n$,5)+Rand((((Asc(Right(taikasana$,2)))*5)-Asc(Str(1))))
EndFunction
Re: Monikäyttöisin funktio
Pakko kommentoida. Hauskoja juttuja kyllä, mutta ettäkö selkeä koodiasu?CCE wrote:Tässäpä monikäyttöinen ja helppokäyttöinen funktio, se tarjoilee viihdykettä jopa 531(kliinisesti testattu) kertaa enemmän kuin muut funktiot markkinoilla. Selkeä koodiasu, ja yleishyödyllinen toimintaperiaate mahdollistavat ennennäkemättömän tyydyttävän ja yhteiskunnallisia arvoja kasvattavan funktiointielämyksen! Kokeile!Code: Select all
Amuse(1) Function Amuse(_yes=1) taikasana$ = "o{{wA665jvt6" For i=1 To Len(taikasana$) _n$= StrInsert(_n$,i, Chr(Asc(Mid(taikasana$,i,1))-(Abs(Crc32("media/cow.bmp")) Shr 26)+(3 Shl 1)-Int(Right(taikasana$,1))) ) : Next i If _yes Then Execute Left(_n$,7)+Chr(120)+Chr(107)+Chr(99)+Chr(25 Shl 2)+Right(_n$,5)+Rand((((Asc(Right(taikasana$,2)))*5)-Asc(Str(1)))) EndFunction
Dead men tell no tales. Also, Python rocks!
Codegolf: 99 bottles of beer (oneliner) - Water map partition
Codegolf: 99 bottles of beer (oneliner) - Water map partition
Re: Monikäyttöisin funktio
Teinpä voittajalle annettavan bannerin:
Re: Monikäyttöisin funktio
Minä myös tein voittajalle annettavan bannerin:
Nimimerkillä tylsistynyt.
Nimimerkillä tylsistynyt.
Re: Monikäyttöisin funktio
Sain oman kuvan valmiiksi
Liian yksinkertainen... Voittaja valitsee
EDIT: vähän isompi:
Liian yksinkertainen... Voittaja valitsee
EDIT: vähän isompi:
Dead men tell no tales. Also, Python rocks!
Codegolf: 99 bottles of beer (oneliner) - Water map partition
Codegolf: 99 bottles of beer (oneliner) - Water map partition
Re: Monikäyttöisin funktio
Yksinkertaisesti monikäyttöisin functio:
Siinä on 10 functiota yhdessä!
parametrit:
num: mikä functio
1=RoundUp()
2=RoundDown()
3=Abs()
4=Sin()
5=Cos()
6=Rnd()
7=Rand()
8=Min()
9=Max
10=Getangle2()
p1,p2: parametrit. Toista parametriä tarvitsee vain viidessä viimeisessä functiossa.
Voitto on minun?
Code: Select all
Function Lasku(num,p1,p2=0)
Select num
Case 1
Return RoundUp(p1)
Case 2
Return RoundDown(p1)
Case 3
Return Abs(p1)
Case 4
Return Sin(p1)
Case 5
Return Cos(p1)
Case 6
Return Rnd(p1,p2)
Case 7
Return Rand(p1,p2)
Case 8
Return Min(p1,p2)
Case 9
Return Max(p1,p2)
Case 10
Return GetAngle2(p1,p2)
End Select
EndFunction
parametrit:
num: mikä functio
1=RoundUp()
2=RoundDown()
3=Abs()
4=Sin()
5=Cos()
6=Rnd()
7=Rand()
8=Min()
9=Max
10=Getangle2()
p1,p2: parametrit. Toista parametriä tarvitsee vain viidessä viimeisessä functiossa.
Voitto on minun?
Koodarina kohtalainen, henkilönä vittumainen
Re: Monikäyttöisin funktio
ei... Ei ainakaan vielä.
Mietis nyt vähän. Kisa-aikaa on vielä viikko.
Mietis nyt vähän. Kisa-aikaa on vielä viikko.
Dead men tell no tales. Also, Python rocks!
Codegolf: 99 bottles of beer (oneliner) - Water map partition
Codegolf: 99 bottles of beer (oneliner) - Water map partition
- TheDuck
- Devoted Member
- Posts: 632
- Joined: Sun Aug 26, 2007 3:51 pm
- Location: C:\Program Files\Tuusula\
Re: Monikäyttöisin funktio
Jotta tätä kisaa ei pilattaisi kaikkien muiden turhilla ja pikaisesti hutaistuilla funktioilla, on aika tuoda esiin tekemäni ällistyttävä ja maailmanhistorian mullistava funktio MakeGame() tuhansien uteliaitten ihmisten ulottuville. Pelientekoko muka vaikeaa? MakeGame funktiolla saa tällä hetkellä tehtyä 4 erityylistä klassista CoolBasic-peliä.
Jotta yleisö ei kyllästyisi turhiin jaaritteluihin ja kymmeniä rivejä pitkiin monologeihin, niin tässä se on, maailmanhistorian mullistava ja silmät päästä pudottava, kerta kaikkiaan ällistyttävä funktio, MakeGame():
Nauttikaa!vpenis++
Jotta yleisö ei kyllästyisi turhiin jaaritteluihin ja kymmeniä rivejä pitkiin monologeihin, niin tässä se on, maailmanhistorian mullistava ja silmät päästä pudottava, kerta kaikkiaan ällistyttävä funktio, MakeGame():
Code: Select all
//0 = räiskintäpeli
//1 = autopeli
//2 = action-peli
//3 = älypeli
Function MakeGame(id)
Select id
Case 0
MakeError "Memory Access Violation"
Case 1
MakeError "Executable error (&FF_23A78DD)."
Case 2
MakeError "Paintobject failed!"
Case 3
MakeError "LoadImage failed!"
Default
MakeError "MakeGame failed!"
EndSelect
EndFunction
Last edited by TheDuck on Sat Jan 17, 2009 10:23 pm, edited 1 time in total.
^^
Re: Monikäyttöisin funktio
TheDuck, sun räiskintäpelissäs on bugi.
cbEnchanted, uudelleenkirjoitettu runtime. Uusin versio: 0.4.1 — Nyt myös sorsat GitHubissa!
NetMatch - se kunnon nettimättö-deathmatch! Avoimella lähdekoodilla varustettu
vesalaakso.com
NetMatch - se kunnon nettimättö-deathmatch! Avoimella lähdekoodilla varustettu
vesalaakso.com
- Dibalo
- Advanced Member
- Posts: 298
- Joined: Mon Aug 27, 2007 8:12 pm
- Location: Espoo, Finland
- Contact:
Re: Monikäyttöisin funktio
Joo-o.. Ei pahalla, mutta tämä on aivan tuhoontuomittu kisa.
- Säännöistä todella huonot.
- Epämääräinen aihe.