※ 引述《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"

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