Veseli vernici

  • Začetnik teme Začetnik teme Jasna
  • Datum pokretanja Datum pokretanja
stanje
Zatvorena za pisanje odgovora.
mrtva kafana...
Kod: 
package main
import "core:os"
import "core:strings"
import "core:slice"
import "core:c/libc"
import "core:fmt"

main::proc(){
  data,ok := os.read_entire_file("bible.txt")
  defer delete(data)
  filtered := slice.filter(data,proc(d:u8)->bool{return libc.ispunct(i32(d))==0})
  bbltxt := string(filtered)
  defer delete(bbltxt)
  lower := strings.to_lower(bbltxt)
  defer delete(lower)
  words := strings.split(lower," ")
  defer delete(words)
  wordsmap := make(map[string]int)
  defer delete(wordsmap)
  for k in words {
    wordsmap[k]+=1
  }
  KV::struct { k:int,v:string}
  result := make([dynamic]KV);
  defer delete(result)
  for k,v in wordsmap {
    append(&result,KV{v,k})
  }
  slice.sort_by(result[:],proc(l,r:KV)->bool{ return l.k>r.k;})
  for kv,i in result {
    if i>=20 { break }
    fmt.printf("% 10d% 10d %-10s\n", i,kv.k,kv.v)
  }
}
odin compiler potrreban, bible.txt na cloudu posto je preveliki
https://www.icloud.com/iclouddrive/0jUEF_8tClqffiGiHtFgv6LOw#bible
Kod: 
odin build bible   -o:speed -microarch:native -no-bounds-check
Program broji koliko koje reci ima u engleskoj bibliji i prikazuje
top 20.
 
Koja ludnica na temama..
kuku.gif
mene mrzi i da prelistam ono, a kamo li da čitam..
svako nešto svoje priča, ko u bunilu..
 
stanje
Zatvorena za pisanje odgovora.

Back
Top