Type casting in haskell, Fractional and Int -

-

i've written function (should) takes infinite list of booleans , calculate ratio of true false values on first n elements:

prob n list = foldr (+) 0 (map booltoint (take n list)) / n     booltoint b         | b == true = 1         | otherwise = 0

unfortunately that's not working:

no instance (fractional int)   arising use of `/' possible fix: add instance declaration (fractional int) in expression: foldr (+) 0 (map booltoint (take n list)) / n in equation `prob':     prob n list       = foldr (+) 0 (map booltoint (take n list)) / n                 booltoint b             | b == true = 1             | otherwise = 0 failed, modules loaded: none.

i tried make conversion, isn't working either:

prob n list = foldr (+) 0 (map booltoint (take (fromintegral (tointeger n)) list)) / n     booltoint b         | b == true = 1         | otherwise = 0

it's compiling, try call function error:

*main> prob 50 tocoin1 <interactive>:1:6: ambiguous type variable `a0' in constraints:   (num a0) arising literal `50' @ <interactive>:1:6-7   (integral a0) arising use of `prob' @ <interactive>:1:1-4   (fractional a0) arising use of `prob' @ <interactive>:1:1-4 probable fix: add type signature fixes these type variable(s) in first argument of `prob', namely `50' in expression: prob 50 tocoin1 in equation `it': = prob 50 tocoin1

any suggestions?

you're converting @ wrong place. try sticking fromrational around entire foldr , n.

prob n list = fromintegral count / fromintegral n     count = foldr (+) 0 (map booltoint (take n list))           booltoint b             | b == true = 1             | otherwise = 0

oh, , booltoint function identical fromenum specialized bools.

prob n list = fromintegral count / fromintegral n     count = foldr (+) 0 (map fromenum (take n list))

the fundamental problem tried imposed conflicting requirements on first argument prob. use of tointeger constrained n integral, use in / required fractional, , there's no type that's both integral , fractional.


Comments

Post a Comment

Popular posts from this blog

jasper reports - Fixed header in Excel using JasperReports -

-
how can create excel report fixed header using japserreports? mean need header fixed when scroll excel file. this possible adding couple properties in jrxml file each report. take @ advanced excel features freeze panes. if wanted freeze after first column header (down left side basically) this: <statictext> <reportelement style="sans_bold" mode="opaque" x="0" y="60" width="104" height="20" forecolor="#ffffff" backcolor="#666666"> <property name="net.sf.jasperreports.export.xls.auto.filter" value="start"/> <property name="net.sf.jasperreports.export.xls.column.width" value="110"/> <property name="net.sf.jasperreports.export.xls.freeze.column.edge" value="left"/> </reportelement> &
Read more

media player - Android: mediaplayer went away with unhandled events -

-
i need duration of audio file series of voice announcements need play app. have added audio files resources , play fine. sample code below works perfect intended purpose: return duration of audio files. here code: float getdurationofaudioresource(locationenum loc, context context){ float duration = 0; try { mediaplayer mp; mp = mediaplayer.create(context, getaudioresource(loc)); duration = mp.getduration(); mp.release(); mp = null; } catch (illegalstateexception e) {e.printstacktrace(); logerror(25, "testdescitem:fault::could not open mediaplayer object audio resource.");} return duration; } here's weird thing. code called in main activity prepares set of audio instructions given test. there no errors within activity. second activity called, long string of errors on logcat. 03-07 13:23:43.820: i/actionlogger(21435): gentest_info_test #0 created. 03-07 13:23:43.830: i/actionlogger(21435): gente
Read more

python - ('The SQL contains 0 parameter markers, but 50 parameters were supplied', 'HY000') or TypeError: 'tuple' object is not callable -

-
import pyodbc,nltk,array cnxn = pyodbc.connect('driver={mysql odbc 5.1 driver};server=127.0.0.1;port=3306;database=information_schema;user=root; password=1234;option=3;') cursor = cnxn.cursor() cursor.execute("use collegedatabase ;") cursor.execute("select * sampledata ; ") cnxn.commit() s=[] j=[] x=[] words = [] w = [] sfq = [] pos=[] entry in cursor: s.append(entry.injury_type),j.append(entry.injury_desc) nltk.tokenize import punktwordtokenizer nltk.corpus import stopwords tokenizer = punktwordtokenizer() english_stops = set(stopwords.words('english')) in range(0,26): # filter stop words tokenizer.tokenize(j[i]) w.append([word word in tokenizer.tokenize(j[i]) if word not in english_stops]) in range(0 , 26):#converting tokenzied text ito string sfq.append(" ".join(w[a])) replacers import regexpreplacer replacer = regexpreplacer() in range (0,26):#pos tagging replacer.repl
Read more