ไฝไธบไธๅๅจ SEO ๅๆถๅฐ้ขๅๆฅๆไธฐๅฏ็ป้ช็ Haskell ๅผๅไบบๅ๏ผๆไบ่งฃไปฅๆถๅฐ้ฃๆ ผไบคไปๅ่ฝไปฃ็ ็ๅฟ
่ฆๆงใ ็ผ็จไธ็็ไธป่ฆ่ถๅฟไธๆถ่ฃ
็งไธ็่ถๅฟ็ธๅผๅบโโ็ฎๅใๅคๆๅๅๆฐใ
ๅจๆไปฌ็ Haskell ๅฎๅฎไธญ๏ผไบคไบๅผ้ๅบ็ฑปไผผไบๆถๅฐ็็ไธปๆไบงๅ๏ผๅณ Coco Chanel ๅจ 1920 ๅนดไปฃๆจๅบ็่ๅ็โๅฐ้ป่ฃโใ ๅฎๆฏๆไปฌๆญฆๅจๅบไธญ็ไธไธชๅทฅๅ
ท๏ผๅฆๆไฝฟ็จๆญฃ็กฎ๏ผๅฏไปฅไธบๆ ๆฐไปฃ็ ๆง่ก้ฎ้ขๆไพ่งฃๅณๆนๆกใ
็ฐๅจ๏ผ่ฎฉๆไปฌๆทฑๅ
ฅ่งฃๅณๆๅคด็้ฎ้ข๏ผไบคไบๅผ้ๅบใ
ๆจกๅMain๏ผไธป๏ผๅจๅช้
ๅฏผๅ
ฅ็ณป็ป.้ๅบ
ไธป่ฆ::IO()
ไธป่ฆ=ๅ
putStrLn โไฝ ๅฅฝ๏ผ ่พๅ
ฅไธไบๅ
ๅฎน็ถๅๆๅฐฑไผ้ๅบใโ
userInput <- getLine putStrLn("ไฝ ่ฏด๏ผ" ++ userInput) exitSuccess [/code]
ๅๆๆไปฌ็ Haskell ๅค่ง
ๆไปฌ็ Haskell ่งฃๅณๆนๆก๏ผๅฐฑๅ Chanel ็ๅฐ้ป่ฃไธๆ ท๏ผ็ฎๅ่ไผ้
ใ ๅฎไป
ไฝฟ็จๅ ไธชๅ
ณ้ฎ้จๅไปฅๅคๆ็ๆนๅผ็ปๅๅจไธ่ตทใ
ไธป่ฆๅ่ฝไปๅ็จๆท็ไป็ปๅผๅง๏ผ็ฑปไผผไบ่ท้ๆจก็น็ปไบบ็ไธ็็ฌ็น็ฌฌไธๅฐ่ฑก๏ผใ ็ถๅ๏ผ่ฏฅๅฝๆฐไผ่ฏทๆฑ่พๅ
ฅๅนถไผ้
ๅฐๅค็ๅฎ๏ผๅฐฑๅไธไธๆจก็น็็ปๅฐๅค็่กฃๆๆ
้ไธๆ ทใ
้
่ฏปๆดๅค