NI
А какое тогда определение?
main = do
forkIO $ forever $ print "hi"
Size: a a a
2021 May 02
JJ
Спасити памагити, я хочу запустить в отдельном треде функцию, что-то типа
JJ
Но если главный тред поставить ждать пару секунд, то принты не выводятся
JJ
Что я делаю не так? ПРобовал forkIO и forkOS, за многопоток не шарю
JJ
Хочу просто запустить в фоне задачу, чтобы она в вечном цикле что-то делала
OS
возможно проблема в буфферизации stdout по-умолчанию.
https://hackage.haskell.org/package/base-4.15.0.0/docs/System-IO.html#g:12
попробуйте добавить в начало main:
hSetBuffering stdout LineBuffering
или
hSetBuffering stdout NoBuffering
если не поможет, пришлите сюда ссылку на gist с минимальным кодом демонстрирующим проблему.
https://hackage.haskell.org/package/base-4.15.0.0/docs/System-IO.html#g:12
попробуйте добавить в начало main:
hSetBuffering stdout LineBuffering
или
hSetBuffering stdout NoBuffering
если не поможет, пришлите сюда ссылку на gist с минимальным кодом демонстрирующим проблему.
N
Переслано от Nikita Ursol
main=let(_')=let(_')=((((<$>zip)<$>(<$>)<$>(<$>)<$>uncurry)uncurry<$>([1..]>>))<$>)<$>(<$>(return<$>(<$>($!""))<$>curry(\_'(_)->_')<$>(++)))<$>(++)<$>(curry(id)<$)<$>(\x->[2..x])in((:[])<$>(uncurry($!)))=<<(_'(3)"Fizz"<$>_'(5)"Buzz"$!((:[])<$>((,)id<$>show))=<<[1..])in(putStr)$!(++"\n")=<<(take)100(_')
N
ah yes
IO
Но раз уж такая пьянка пошла держите и мой любимый загольфеный код
1. Double-литерал, (x), sin(x), cos(x), tan(x), asin(x), acos(x), atan(x), abs(x), log(x), exp(x), pi, e, logBase(b, x)
2. x ^ y (infixr)
3. x * y, x / y (infixl)
4. x + y, x - y (infixl)
#define F(x)t"x">>x<$>b c,Требует
import Text.ParserCombinators.ReadP
e=l(l(chainr1(choice[readS_to_P reads,b c,F(sin)F(cos)F(tan)F(asin)F(acos)F(atan)F(abs)F(log)F(exp)"pi"%pi,"e"%exp 1,t"logBase">>logBase<$>b(t",")<*>e<*c])$"^"%(**))$"*"%(*)<++"/"%(/))$"+"%(+)<++"-"%(-);c=t")";t=string;b=(t"("*>e<*);l=chainl1;s%f=f<$string s;main=interact(\i->show[s|(s,"")<-readP_to_S e$filter(/=' ')i])
-XCPP
Калькулятор в 389 символов/байт (384 на код + 5 на коммандлайн опцию). Поддерживаемые операции, в порядке уменьшения приоритета:1. Double-литерал, (x), sin(x), cos(x), tan(x), asin(x), acos(x), atan(x), abs(x), log(x), exp(x), pi, e, logBase(b, x)
2. x ^ y (infixr)
3. x * y, x / y (infixl)
4. x + y, x - y (infixl)
AA
языки в одном семействе, если они имплементировались как фронтенд одного компилятора.
т.е. haskell, clean, lazy ml и agda - одно семейство
т.е. haskell, clean, lazy ml и agda - одно семейство
AA
потому что были компиляторы
1) с фронтендом хаскель и лмл,
2) клин и хаскель
3) хаскель и агда
1) с фронтендом хаскель и лмл,
2) клин и хаскель
3) хаскель и агда
AA
а то можно скоко угодно доказывать что языки похожи, а ты попробуй их имплементировать используя эту похожесть
AA
например смл и камл делались как фронтенды одной имплементации - москоу мл и камл лайт, а вот с имплементациями для камла и лиспа и хаскеля и лиспа помаялись немного и на помоечку!
NI
А почему петона нет?
Я вот (непрада, конечно, но допустим) сделал транслятор петона в хаскель!
Я вот (непрада, конечно, но допустим) сделал транслятор петона в хаскель!
AA
вот сделают, тогда и поговорим!
NI
То есть, классификация допускает потенциально иметь петона в качестве языка одного семейства с хаскелем?
AA
почему?