VV
ага
Size: a a a
2021 November 07
A
не, оно строка, а не список
Aß
Vitaly я сейчас подумаю и напишу
Aß
но там либо функционально, либо через исключения
VV
а результат нельзя как то из функции вытащить?
Aß
ну так ты её не вызываешь
VV
не, ну я вызываю в
compare_string_lists(f, sl)VV
просто он мне пишет, что типы разные у f (string * string list -> string list) а у sl (string list)
Aß
fun qwe (str, list) =
let
fun bind _ NONE = NONE
| bind f (SOME x) = f x
fun loop [] = NONE
| loop (x :: xs) =
if same_string (str, x)
then SOME xs
else bind (fn xs' => x :: xs') (loop xs)
in
loop list
end;SD
это какая неделя?
Aß
функциональный вариант решения
VV
3
SD
там в курсе "нельзя" пользоваться еще не пройденными возможностями, оценку вроде занижают
VV
ага, да и мне самому интересно, просто не знаю конкретно где инфу найти по этому вопросу)
Aß
потому что они разные
VV
ну я понимаю, а можно как-то результат функции вытащить и сравнить, а не саму функцию?
SD
а ты до 3 недели как дошел? вроде там должно быть уже понятно, почему такая ошибка. и рекурсия у тебя на мой взгляд странная. думаю f не должна вызывать all_except функцию
Aß
вызвать её
Aß
че за курс, кстати?
