小编arm*_*ves的帖子

我已经盯着这段代码已经有一段时间了,我无法理解这条错误信息.

divisors :: Integer -> [Integer]
divisors n = [t | t <- [1..n], mod n t == 0]

length' :: [a] -> Integer
length' []      = 0
length' (x:xs)  = 1 + length' xs

divLengths :: [(Integer, Integer)]
divLengths = [(n, length' (divisors n)) | n <- [1..]]

divLengths' :: [Integer]
divLengths' = [length' (divisors n) | n <- [1..]]

hcn :: [Integer]
hcn = [n | n <- [1..], max (take n divLengths') == length' (divisors n)]

"divisors"接受一个I​​nteger并返回一个包含所有除数的列表. …

我正在尝试编译这段代码(将成为Langton蚂蚁的模拟):

    #include <conio.h>
    #include <stdio.h>
    #include <stdlib.h>
    #include <time.h>

    typedef struct
    {
        unsigned short x, y;
        enum directions {up = 0, right, down, left} direction;
    } langtonsAnt;

    void turnAnt (lantonsAnt *pant, unsigned short quarterTurns)
    {
        pant->direction = (pant->direction + quarterTurns) % 4;
    }

    int main ()
    {
        return EXIT_SUCCESS;
    }

但是,我不断收到此错误:

12 |错误:预期')'在'*'标记之前

编译器是gcc.

我不知道出了什么问题,因为我已经搜索了网络和各种参考资料.

PS不要担心标题,程序中的其他地方需要这些标题.