小编knk*_*rfl的帖子

我是haskell的新手,我有疑问:我写代码:

word_list = ["list", "lol", "wordword"]
check str = if head str == 'l' then tail str else str
average wl = (length $ concat $ map check wl) `div` length wl

此代码必须删除单词列表中每个单词中的第一个"l"符号,单词收到的单词,获取结果字符串的长度和单词计数的div.

所以在这段代码中我必须接受:13/3 = 4,333 ...("listlolwordword"= 15,"istolwordword"= 13)但我只收到4.

average :: [[Char]] -> Float不工作,我收到错误.我的错误在哪里？PS.对不起我的英文,拜托

我需要一个像Crystal Project这样的库， 我目前使用 Crystal，但它对连接和表前缀的支持很差，并且没有获取行数的功能，所以我需要更改为对这些有更好支持的库。

我不需要 ORM 或抽象库。我只需要具有链方法支持的良好 mysql 包装器，例如：

(->order_by('-id')->limit(($page - 1) * 20, 20)->print_sql();)

我使用PDO,我无法插入一些数据:

使用此代码:

$sql  = 'INSERT INTO `releases` (id, artists, release, label, catalog, date, tracklist, type, status, vote, votes_count) ';
$sql .= 'VALUES (:id, :artists, :release, :label, :catalog, :date, :tracklist, :type, :status, :vote, :votes_count)';

$query = $this->db->prepare($sql);

$query->bindParam(':id', 0, PDO::PARAM_INT);
$query->bindParam(':artists', implode('|||', $data['artists']), PDO::PARAM_STR);
$query->bindParam(':release', $data['release'], PDO::PARAM_STR);
$query->bindParam(':label', $data['label'], PDO::PARAM_STR);
$query->bindParam(':catalog', $data['catalog'], PDO::PARAM_STR);
$query->bindParam(':date', $data['date'], PDO::PARAM_STR);
$query->bindParam(':tracklist', $data['tracklist'], PDO::PARAM_STR);
$query->bindParam(':type', $data['type'], PDO::PARAM_STR);
$query->bindParam(':status', $data['status'], PDO::PARAM_INT);
$query->bindParam(':vote', 0, PDO::PARAM_INT);
$query->bindParam(':votes_count', 0, PDO::PARAM_INT);

$query->execute();

但数据不会插入数据库.所有名称都已检查且有效.id为AUTO_INCREMENT字段.

如果我使用这段代码:$ this-> db-> setAttribute(PDO :: ATTR_ERRMODE,PDO :: ERRMODE_WARNING); …