Monikäyttöisin funktio

Locked
User avatar
Jani
Devoted Member
Posts: 741
Joined: Fri Oct 31, 2008 5:53 pm

Monikäyttöisin funktio

Post by Jani » Sat Jan 17, 2009 5:32 pm

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 10:01 pm, edited 3 times in total.
Dead men tell no tales. Also, Python rocks!
Codegolf: 99 bottles of beer (oneliner) - Water map partition

User avatar
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 » Sat Jan 17, 2009 5:46 pm

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.

User avatar
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 » Sat Jan 17, 2009 6:27 pm

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 3:16 pm

Re: Monikäyttöisin funktio

Post by Character » Sat Jan 17, 2009 6:34 pm

Palauttaa suurimman kolmesta:

Code: Select all

Function Max3(m1,m2,m3)
    Biggest1=Max(m1,m2)
    Biggest2=Max(Biggest1,m3)
    Return Biggest2
End Function
:lol:

User avatar
Koodiapina
Forum Veteran
Posts: 2396
Joined: Tue Aug 28, 2007 4:20 pm
Contact:

Re: Monikäyttöisin funktio

Post by Koodiapina » Sat Jan 17, 2009 6:35 pm

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)
Olen liian älykäs ollakseni väärässä. Jos olet kanssani eri mieltä, suosittelen sinua pohtimaan omaa elämänkatsomustasi ja sen perusteita.

User avatar
CCE
Artist
Artist
Posts: 650
Joined: Mon Aug 27, 2007 9:53 pm

Re: Monikäyttöisin funktio

Post by CCE » Sat Jan 17, 2009 7:48 pm

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

User avatar
Jani
Devoted Member
Posts: 741
Joined: Fri Oct 31, 2008 5:53 pm

Re: Monikäyttöisin funktio

Post by Jani » Sat Jan 17, 2009 8:09 pm

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 » Sat Jan 17, 2009 8:51 pm

Teinpä voittajalle annettavan bannerin: Image

User avatar
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 » Sat Jan 17, 2009 9:19 pm

Minä myös tein voittajalle annettavan bannerin: Image

Nimimerkillä tylsistynyt.

User avatar
Jani
Devoted Member
Posts: 741
Joined: Fri Oct 31, 2008 5:53 pm

Re: Monikäyttöisin funktio

Post by Jani » Sat Jan 17, 2009 10:00 pm

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

User avatar
nevssons
Devoted Member
Posts: 503
Joined: Sun Jan 13, 2008 6:02 pm

Re: Monikäyttöisin funktio

Post by nevssons » Sat Jan 17, 2009 10:28 pm

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

User avatar
Jani
Devoted Member
Posts: 741
Joined: Fri Oct 31, 2008 5:53 pm

Re: Monikäyttöisin funktio

Post by Jani » Sat Jan 17, 2009 10:39 pm

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

User avatar
Olwi
Devoted Member
Posts: 557
Joined: Sun Dec 30, 2007 5:15 pm
Location: Muhos

Re: Monikäyttöisin funktio

Post by Olwi » Sat Jan 17, 2009 10:41 pm

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 » Sat Jan 17, 2009 11:09 pm

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 11:23 pm, edited 1 time in total.
^^

User avatar
valscion
Moderator
Moderator
Posts: 1593
Joined: Thu Dec 06, 2007 8:46 pm
Location: Espoo
Contact:

Re: Monikäyttöisin funktio

Post by valscion » Sat Jan 17, 2009 11:15 pm

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 » Sun Jan 18, 2009 1:17 am

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