function!s:test() abort
  call brain#srand(0)letl:patterns =[  \[[0.0,0.0],[0.0]],  \[[0.0,1.0],[1.0]],  \[[1.0,0.0],[1.0]],  \[[1.0,1.0],[0.0]],  \]letl:ff = brain#new_feed()letl:ff.Init(2,2,1)calll:ff.Train(l:patterns,1000,0.6,0.4,v:false)calll:ff.Test(l:patterns)endfunctioncalls:test()

lets:bits= has('num64') ? 64:32lets:mask=s:bits-1lets:mask32=32-1lets:pow2=[1]fors:_in range(s:mask)call add(s:pow2,s:pow2[-1] * 2)endfor
unlet s:_function!s:lshift(a,n) abort
  returna:a * s:pow2[and(a:n,s:mask)]endfunctionfunction!s:rshift(a,n) abort
  letn= and(a:n,s:mask)returnn==0 ? a:a:  \a:a<0 ? (a:a-s:min)/ s:pow2[n] + s:pow2[-2] /s:pow2[n-1]  \:a:a / s:pow2[n]endfunctionfunction!s:bin(n) abort
  letl:f= repeat([0.0],8)forl:iin range(8)letl:f[i]=0.0+ and(s:rshift(a:n,l:i),1)endforreturnl:fendfunctionfunction!s:dec(v) abort
  let[l:maxi,l:maxv]=[0,0.0]forl:iin range(len(a:v))ifa:v[l:i]>l:maxv
      letl:maxv =a:v[l:i]letl:maxi =l:iendifendforreturnl:maxi
endfunctionfunction!s:teacher(n) abort
  ifa:n%15==0return[1,0,0,0]elseifa:n%3==0return[0,1,0,0]elseifa:n%5==0return[0,0,1,0]elsereturn[0,0,0,1]endifendfunctionfunction!s:test() abort
  call brain#srand(0)letl:patterns =[]forl:iin range(1,100)call add(l:patterns,[s:bin(i),s:teacher(i)])endforletl:ff = brain#new_feed()letl:ff.Init(8,100,4)calll:ff.Train(l:patterns,1000,0.6,0.4,v:true)forl:iin range(1,100)letl:r=s:dec(l:ff.Update(s:bin(l:i)))ifl:r==0
      echo "FizzBuzz"elseifl:r==1
      echo "Fizz"elseifl:r==2
      echo "Buzz"else
      echo l:iendifendforendfunctioncalls:test()

function!s:test() abort
  letl:ff = brain#load_model('fizzbuzz.json')forl:iin range(1,100)letl:r=s:dec(l:ff.Update(s:bin(l:i)))ifl:r==0
      echo "FizzBuzz"elseifl:r==1
      echo "Fizz"elseifl:r==2
      echo "Buzz"else
      echo l:iendifendforendfunction

require 'open-uri'
open(url) do |file|
  puts file.read
end

packagemainimport("encoding/json""flag""fmt""io/ioutil""log""math/rand""os""path/filepath""regexp""sort""strings""github.com/goml/gobrain")varextMap=map[string]string{".rb":"ruby",".php":"php",".pm":"perl",".pl":"perl",".c":"c",".cc":"cpp",".cxx":"cpp",".go":"go",}funcremoveComment(lang,codestring)string{iflang=="c"||lang=="cpp"||lang=="go"{re:=regexp.MustCompile("(?s)//.*?\n|/\\*.*?\\*/")code=re.ReplaceAllString(code,"")}iflang=="perl"||lang=="ruby"{lines:=strings.Split(code,"\n")fori:=0;i<len(lines);i++{ifstrings.HasPrefix(strings.TrimSpace(lines[i]),"#"){lines[i]=""}}code=strings.Join(lines,"\n")}returncode}varallKws=map[string]struct{}{}varpat=regexp.MustCompile(`\b\w+`)funckeywords(lang,codestring,kws[]string)[]float64{kwf:=make([]float64,len(kws))words:=pat.FindAllString(removeComment(lang,code),-1)kc:=0for_,v:=rangewords{n:=find(kws,v)ifn!=-1{kwf[n]++kc++}}fmt.Println(words)fori:=0;i<len(kwf);i++{ifkwf[i]>0{kwf[i]/=float64(kc)}}returnkwf}funcanalyze(namestring)bool{ifstrings.Contains(name,"/."){returnfalse}lang,ok:=extMap[strings.ToLower(filepath.Ext(name))]if!ok{returnfalse}b,err:=ioutil.ReadFile(name)iferr!=nil{returnfalse}for_,v:=rangepat.FindAllString(removeComment(lang,string(b)),-1){allKws[v]=struct{}{}}returntrue}funcallLanguages()[]string{l:=[]string{}langs:=map[string]struct{}{}for_,v:=rangeextMap{langs[v]=struct{}{}}fork:=rangelangs{l=append(l,k)}sort.Strings(l)returnl}funcallKeywords()[]string{ks:=[]string{}fork:=rangeallKws{ks=append(ks,k)}sort.Strings(ks)returnks}typeBasicEncoderDecoderstruct{labels[]string}func(cBasicEncoderDecoder)EncodeLabel(labelstring)[]float64{hasil:=[]float64{}for_,l:=rangec.labels{ifl==label{hasil=append(hasil,1.0)}else{hasil=append(hasil,0.0)}}returnhasil}func(cBasicEncoderDecoder)DecodeLabel(label[]float64)string{maxIndex:=0maxValue:=0.0fori,l:=rangelabel{ifl>maxValue{maxIndex=imaxValue=l}}returnc.labels[maxIndex]}funcfind(a[]string,xstring)int{fori,n:=rangea{ifx==n{returni}}return-1}funcsaveModel(ff*gobrain.FeedForward)error{f,err:=os.Create("guesslang.json")iferr!=nil{returnerr}deferf.Close()returnjson.NewEncoder(f).Encode(ff)}funcloadModel()(*gobrain.FeedForward,error){f,err:=os.Open("guesslang.json")iferr!=nil{returnnil,err}deferf.Close()ff:=&gobrain.FeedForward{}err=json.NewDecoder(f).Decode(ff)iferr!=nil{returnnil,err}returnff,nil}funcsaveKeywords()error{f,err:=os.Create("keywords.json")iferr!=nil{returnerr}deferf.Close()returnjson.NewEncoder(f).Encode(allKeywords())}funcsaveLanguages()error{f,err:=os.Create("languages.json")iferr!=nil{returnerr}deferf.Close()returnjson.NewEncoder(f).Encode(allLanguages())}funcloadKeywords()([]string,error){f,err:=os.Open("keywords.json")iferr!=nil{returnnil,err}varkeywords[]stringerr=json.NewDecoder(f).Decode(&keywords)iferr!=nil{returnnil,err}returnkeywords,nil}funcloadLanguages()([]string,error){f,err:=os.Open("languages.json")iferr!=nil{returnnil,err}varlanguages[]stringerr=json.NewDecoder(f).Decode(&languages)iferr!=nil{returnnil,err}returnlanguages,nil}funcmain(){flag.Parse()kws,_:=loadKeywords()langs,_:=loadLanguages()ff,_:=loadModel()enc:=&BasicEncoderDecoder{langs}fmt.Println(len(kws),len(langs))iflen(kws)==0||len(langs)==0||ff==nil{base,err:=filepath.Abs(flag.Arg(0))iferr!=nil{log.Fatal(err)}names:=[]string{}err=filepath.Walk(base,func(pathstring,infoos.FileInfo,errerror)error{iferr!=nil{returnerr}if!info.IsDir()&&info.Name()!=".git"{path=filepath.ToSlash(path)ifanalyze(path){names=append(names,path)}}returnnil})kws=allKeywords()langs=allLanguages()enc=&BasicEncoderDecoder{langs}visit:=map[string]int{}for_,l:=rangelangs{visit[l]=0}rand.Seed(0)patterns:=[][][]float64{}for_,name:=rangenames{ifstrings.Contains(name,"/."){continue}lang,ok:=extMap[strings.ToLower(filepath.Ext(name))]if!ok{continue}ifvisit[lang]>20{continue}log.Println(lang,name)b,err:=ioutil.ReadFile(name)iferr!=nil{continue}kf:=enc.EncodeLabel(lang)kw:=keywords(lang,string(b),kws)patterns=append(patterns,[][]float64{kw,kf,})visit[lang]++}println(len(kws),len(langs),len(patterns))ff=&gobrain.FeedForward{}ff.Init(len(kws),len(langs),len(langs))ff.Train(patterns,100,0.6,0.4,true)saveModel(ff)saveKeywords()saveLanguages()}input:=keywords("",`
require 'sinatra'

get '/' do
  'Hello world!'
end
    `,kws)vv:=ff.Update(input)fmt.Println(enc.DecodeLabel(vv))}

lets:base= fnamemodify(expand('<sfile>').'/../data',':p')function!s:enc(l,n) abort
  letl:f= repeat([0.0], len(a:l))forl:iin range(len(a:l))ifa:l[l:i]==a:nletl:f[l:i]=1.0endifendforreturnl:fendfunctionfunction!s:dec(v) abort
  let[l:maxi,l:maxv]=[0,0.0]forl:iin range(len(a:v))ifa:v[l:i]>l:maxv
      letl:maxv =a:v[l:i]letl:maxi =l:iendifendforreturnl:maxi
endfunctionif!exists('s:kwd')lets:kws= json_decode(join(readfile(s:base.'/keywords.json'),"\n"))endifif!exists('s:lng')lets:lng= json_decode(join(readfile(s:base.'/languages.json'),"\n"))endifif!exists('s:ff')lets:ff= brain#load_model(s:base.'/guesslang.json')endiffunction!s:keywords(code) abort
  letl:kwf = repeat([0.0], len(s:kws))letl:words =[]call substitute(a:code,'\<\w\+','\=add(l:words, submatch(0)) == [] ? "" : ""','g')letl:kc =0.0forl:vinl:words
    letl:n= index(s:kws,l:v)ifl:n!=-1letl:kwf[l:n]+=1.0letl:kc +=1.0endifendforforl:iin range(len(l:kwf))ifl:kwf[l:i]>0.0letl:kwf[l:i]=l:kwf[l:i] / kc
    endifendforreturnl:kwf
endfunctionfunction!s:test() abort
  letl:input =s:keywords(join(readfile('test.cc'),"\n"))letl:r=s:dec(s:ff.Update(l:input))
  echo s:lng[l:r]endfunctioncalls:test()

#include <iostream>
#include <string>
#include <algorithm>
intmain(intargc,char*argv[]){std::vector<std::string>v;return0;}

cpp