Monikäyttöisin funktio

Locked
Jani
Devoted Member
Posts: 741
Joined: Fri Oct 31, 2008 4:53 pm

Monikäyttöisin funktio

Post by Jani »

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.
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
otto90x
Advanced Member
Posts: 349
Joined: Mon Aug 27, 2007 9:00 pm
Location: Lapinjärvi, Finland
Contact:

Re: Monikäyttöisin funktio

Post by otto90x »

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.
temu92
Web Developer
Web Developer
Posts: 1226
Joined: Mon Aug 27, 2007 9:56 pm
Location: Gamindustri
Contact:

Re: Monikäyttöisin funktio

Post by temu92 »

Code: Select all

function superfunkkari(str$, x, y, r, g b)
	color r, g, b
	text x, y, str$
endfunction
Tää on monikäyttönen :P
Character
Active Member
Posts: 113
Joined: Thu Nov 27, 2008 2:16 pm

Re: Monikäyttöisin funktio

Post by Character »

Palauttaa suurimman kolmesta:

Code: Select all

Function Max3(m1,m2,m3)
    Biggest1=Max(m1,m2)
    Biggest2=Max(Biggest1,m3)
    Return Biggest2
End Function
:lol:
Koodiapina
Forum Veteran
Posts: 2396
Joined: Tue Aug 28, 2007 4:20 pm

Re: Monikäyttöisin funktio

Post by Koodiapina »

Code: Select all

lol("telnet ascii-wm.net 2006")

function lol(wut$)
  execute wut
endfunction
Funktio on todella monikäyttöinen. Sillä voi katsoa vaikkapa jalkapalloa ASCII:na, kuten esimerkistä näkyy B)
User avatar
CCE
Artist
Artist
Posts: 650
Joined: Mon Aug 27, 2007 9:53 pm

Re: Monikäyttöisin funktio

Post by CCE »

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
Jani
Devoted Member
Posts: 741
Joined: Fri Oct 31, 2008 4:53 pm

Re: Monikäyttöisin funktio

Post by Jani »

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
Pakko kommentoida. Hauskoja juttuja kyllä, mutta ettäkö selkeä koodiasu?
Dead men tell no tales. Also, Python rocks!
Codegolf: 99 bottles of beer (oneliner) - Water map partition
User avatar
CCE
Artist
Artist
Posts: 650
Joined: Mon Aug 27, 2007 9:53 pm

Re: Monikäyttöisin funktio

Post by CCE »

Teinpä voittajalle annettavan bannerin: Image
temu92
Web Developer
Web Developer
Posts: 1226
Joined: Mon Aug 27, 2007 9:56 pm
Location: Gamindustri
Contact:

Re: Monikäyttöisin funktio

Post by temu92 »

Minä myös tein voittajalle annettavan bannerin: Image

Nimimerkillä tylsistynyt.
Jani
Devoted Member
Posts: 741
Joined: Fri Oct 31, 2008 4:53 pm

Re: Monikäyttöisin funktio

Post by Jani »

Sain oman kuvan valmiiksi :)

Image

Liian yksinkertainen... Voittaja valitsee ;)

EDIT: vähän isompi:
Image
Dead men tell no tales. Also, Python rocks!
Codegolf: 99 bottles of beer (oneliner) - Water map partition
nevssons
Devoted Member
Posts: 503
Joined: Sun Jan 13, 2008 5:02 pm

Re: Monikäyttöisin funktio

Post by nevssons »

Yksinkertaisesti monikäyttöisin functio:

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 
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? :mrgreen:
Koodarina kohtalainen, henkilönä vittumainen
Image
Jani
Devoted Member
Posts: 741
Joined: Fri Oct 31, 2008 4:53 pm

Re: Monikäyttöisin funktio

Post by Jani »

ei... Ei ainakaan vielä.
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
Olwi
Devoted Member
Posts: 557
Joined: Sun Dec 30, 2007 4:15 pm
Location: Muhos

Re: Monikäyttöisin funktio

Post by Olwi »

Jani wrote:Sain oman kuvan valmiiksi :)
Even most epic
Huuda mun ip:tä!
User avatar
TheDuck
Devoted Member
Posts: 632
Joined: Sun Aug 26, 2007 3:51 pm
Location: C:\Program Files\Tuusula\

Re: Monikäyttöisin funktio

Post by TheDuck »

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():

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
Nauttikaa!vpenis++
Last edited by TheDuck on Sat Jan 17, 2009 10:23 pm, edited 1 time in total.
^^
User avatar
valscion
Moderator
Moderator
Posts: 1599
Joined: Thu Dec 06, 2007 7:46 pm
Location: Espoo
Contact:

Re: Monikäyttöisin funktio

Post by valscion »

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
User avatar
Dibalo
Advanced Member
Posts: 298
Joined: Mon Aug 27, 2007 8:12 pm
Location: Espoo, Finland
Contact:

Re: Monikäyttöisin funktio

Post by Dibalo »

Joo-o.. Ei pahalla, mutta tämä on aivan tuhoontuomittu kisa.
  • Säännöistä todella huonot.
  • Epämääräinen aihe.
Mikäli ketjun aloittaja saa jollain ihmeen tavalla häkäistyä minut privaviesteillä tämän kilpailun tärkeydestä, voin avata lukituksen.
The darkest spells can be found from
http://tunkkaus.blogspot.fi
Locked