这酷安简直有毒啊

抄了几个小时，Monad 真的是很难尝试与作者拥有相同的想法...

你们体验一下，就会发现 Haskell 的 Monad Parserc 框架写起来其实是很魔性的，

组合子基本上也就是顺序解析和 branch 这两个需求，
这个 parser 通过 [(a, String)] 来存储当前解析结果（val & rest），和 ReadP 是一样的

如果不是因为 Haskell 要求完全纯的计算（就是函数单靠组合不产生任何副作用，不允许任何外部输入也不能对函数外环境造成影响）
其实可以更好些，虽然 Haskell 写的也非常方便

😭 我可懒得写了... #Haskell #project 算了，还是做更有意思的事情吧，这个换成做 emitter 好了

https://github.com/duangsuse/JsonH

墓碑...

这是 TextCombinator 库以后要参考的榜样，不过 TextCombinator 不要和 Haskell 一样... Haskell 直接 type String = List Char 的 #GitHub 同款 Gist

#matlab https://github.com/BaseMax/MatlabMatrixProject/blob/master/BiggestValueMatrix.m

啊？为啥这么简单的算法要发上来... 我还以为是要 show SIMD 优化的呢...
🤔???

弄了半天我才猜到

function [lv1, lv2] = Name(ArgType)
end

是这样的啊

可是，即使是线性查找也有点奇怪呢？... 不清楚呢

https://github.com/BaseMax/MatlabMatrixProject/blob/master/BiggestValueMatrix.m#L8

maximum=Matrix(1,1);

反正要被替换，为什么不直接随便初始化个简单的...

https://github.com/BaseMax/MatlabMatrixProject/blob/master/BiggestValueMatrix.m#L10

for i=1:rows

没有考虑到 Matrix 为 0x~ 维度的情况

https://github.com/BaseMax/MatlabMatrixProject/blob/master/BiggestValueMatrix.m#L12
if maximum <= Matrix(i,j);
其实等于的时候不必替换

https://github.com/BaseMax/MatlabMatrixProject/blob/master/BiggestValueMatrix.m#L17
[row_max column_max] = find(A == maximum);
别这样，扫描一遍已经够了，为啥要再来第二遍...

Matlab 已经很不怎么优化了（所谓的『数据处理语言』，我个人觉得还不如直接 Julia），还这样一遍一遍找 O(n) 两遍... 尽可能一次弄完吧

类似 #Haskell #fp 的 banana split:

length = foldl (\x y -> succ y) 1
product = foldl (*) 1

productLength = foldl ( \(a0, a1) x -> (x * a0, succ a1) ) (1, 1)
productLength' xs = (product xs, length xs)

productLength 比 productLength' 要好，它只 travelse 了一遍，没有不必要地再去算第二遭

#Rust 很想回去写底层一点的编程呢，虽然 Rust 也不需要手动回收内存

已经可以在脑中默写下来了！HashMap、App、Arg、cargo 宏和 if match control-flow 都看到了！

https://github.com/BaseMax/MatlabMatrixProject/issues/1#issuecomment-487591209

一瞬回复，真的是很快啊

那些 show List comprehension 的真应该来看看 Monad，了解一下自己要学的还有多少，不止一个语法糖 🙈

顺便默写一下 Haskell qsort：

quickShort :: Ord a => [a] -> [a]
quickShort xs = let x = xs !! (length xs `div` 2) in
   [ l | l <- xs, l < x ] ++ [x] ++ [ r | r <- xs, r > x ]

splitH :: Char -> String-> [String]
splitH d str
  = splitH' str []
  where  
    splitH' (c : cs) ac   
      | c == d = reverse ac : splitH' cs []
      | otherwise = splitH' cs (c : ac)

main :: IO ()
main = do 
  line <- getLine
  print . show $ splitH ' ' line
  return ()

写不出来那个 splitH....

好了~可以睡觉了

#Haskell 简单的 JSON dump 小程序

附注 Gist 发布

scala> def id[A](x: A): A = x
id: [A](x: A)A

scala> :type id _
Nothing => Nothing

scala> :type id(1)
Int
scala> id(1)
res0: Int = 1

scala> :type id("2")
String
scala> id("Strin")
res1: String = Strin

import scala.math.Ordering

object QuickSort {
  def quickSort[A](list: List[A])(implicit ord: Ordering[A]): List[A] = {
    if (list.length < 2) return list
    val pivot = list.length / 2
    val less = list.filter((x) => ord.lt(x, list{pivot}))
    val more = list.filter((x) => ord.gt(x, list{pivot}))
    return quickSort(less) ++ List(list{pivot}) ++ quickSort(more)
  }

  def main(args: Array[String]): Unit =    
    println(quickSort(List(4, 3, 5, 2, 1)))
}

scalac qsort.scala
scala qsort


试用 Scala
推荐幻灯片 #fp