※ 引述《redDest (紅紅)》之銘言：
: 肥肥我好爛爛
: 做什麼都做不好
: 唯一優點是很會發優文
: 肥肥不敢想像如果自己不會發優文要怎麼有活下去的動力
: 能力很差的人都是怎麼活下去的??????????
還好吧，弱者我朋友，現在都嘛邊緣一個，走到哪都一個人，只能靠發票賺錢
只能說，台灣是個寶島啦，生存門檻不是很高
重點是
他還是不缺錢@@
import Data.list
import System.IO
reagensi=['A', 'B']
proizvodi=['C', 'D']
koeficijenti_kraj_stehiometrijom=['a', 'b', 'c', 'd']
aktivnosti::Double
reagensi_kod_reakcijom::(Char, Char)-> (Char, Char)->(String, String)
proizvodi_kod_reakcijom::(Char, Char)-> (Char, Char)->(String, String)
reagensi_kod_reakcijom (koeficijenti_kraj_stehiometrijom[0],
koeficijenti_kraj_stehiometrijom[1])(reagensi[0],
reagensi[1])=(koeficijenti_kraj_stehiometrijom[0]reagensi[0],
koeficijenti_kraj_stehiometrijom[1]reagensi[1])
proizvodi_kod_reakcijom (koeficijenti_kraj_stehiometrijom[2],
koeficijenti_kraj_stehiometrijom[3])(proizvodi[0],
proizvodi[1])=(koeficijenti_kraj_stehiometrijom[2]proizvodi[0],
koeficijenti_kraj_stehiometrijom[3]proizvodi[1])
aktivnosti=reagensi:proizvodi:[ ]
main=do
konstanta_ravnotedza::Double
hemijska_ravnotedza::Double
hemijska_ravnotedza=Pow(aktivnosti[0],
koeficijenti_kraj_stehiometrijom[0])*Pow(aktivnosti[1],
koeficijenti_kraj_stehiometrijom[1])/(Pow(aktivnosti[2],
koeficijenti_kraj_stehiometrijom[2])*Pow(aktivnosti[3],
koeficijenti_kraj_stehiometrijom[3]))
if (konstanta_ravnotedza==hemijska_ravnotedza)
putStrLn reagensi_kod_reakcijom[0] ++ " + " ++ reagensi_kod_reakcijom[1]
++ "->" ++ proizvodi_kod_reakcijom[0] ++ " + " ++ proizvodi_kod_reakcijom[1]
++ "je reakcija elementarana"
else
putStrLn "ova reakcija je bezelementarana"

$$$$$$$$$$$$$$$$$$$$$$$$