R-ohjelmointi.org

Tilastotieteellistä ohjelmointia R-kielellä

Pähkinä – numeroiden lukumäärät

Sain jälleen kerran ratkottavakseni pähkinän, joka kuuluu jokseenkin seuraavasti: ”Kyltintekijän pitää numeroida kadun varren talot numeroilla 1-100. Kuinka monta yhdeksikköä hän tarvitsee?” Kyseisellä tavalla muotoiltuna pähkinä on riittävän helppo käsipelillä ratkottavaksi, mutta entäs jos onkin tarpeen laskea kaikkien tarvittavien numeroiden määrät tai numeroimiseen käytettävät numerot muodostavat laajemman sarjan, esimerkiksi kaikki luvut yhdestä miljoonaan?

Ongelman voi ratkoa nopeahkosti monillakin ohjelmointikielillä, mutta tässä eräitä ”yksirivisiä” ehdotelmia R:ää käyttäen.

Yhdeksikköjen lukumäärä:

sum(unlist(strsplit(as.character(1:100), ""))==9)

Kaikkien lukujen lukumäärät:

table(unlist(strsplit(as.character(1:100), "")))

Kirjainten lukumäärät, esimerkiksi laatikoiden nimeämiseen:

teksti<-c("puutarhatontut", "pajavasarat", "valokuvat")
table(unlist(strsplit(teksti, "")))


Vastaa

Sähköpostiosoitettasi ei julkaista. Pakolliset kentät on merkitty *