关于LeetCode支持Erlang语言这件事

最新推荐文章于 2022-02-21 10:30:04 发布
最新推荐文章于 2022-02-21 10:30:04 发布
阅读量276 收藏 1
点赞数 1
分类专栏： Erlang 算法 文章标签： leetcode erlang 算法 dfs
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_43876186/article/details/120850747
版权

心血来潮的一天打开阔别已久的Leetcode，想搞个Easy爽爽，发现编译语言支持Erlang以后便发现了新世界，开冲！本篇干货较多，使用Erlang listAPI、maps和原生array(底层为元组实现)

在这里插入图片描述

直接祭出了我之前自己写过的Erlang解决最大岛屿问题

题号是695，当时用Java和Erlang都有尝试，题目里那个案例是可以通过

题目

695.岛屿的最大面积

给你一个大小为 m x n 的二进制矩阵 grid 。

岛屿 是由一些相邻的 1 (代表土地) 构成的组合，这里的「相邻」要求两个 1 必须在 水平或者竖直的四个方向上 相邻。你可以假设 grid 的四个边缘都被 0（代表水）包围着。

岛屿的面积是岛上值为 1 的单元格的数目。

计算并返回 grid 中最大的岛屿面积。如果没有岛屿，则返回面积为 0 。

示例 1：

img

输入：grid = [[0,0,1,0,0,0,0,1,0,0,0,0,0],[0,0,0,0,0,0,0,1,1,1,0,0,0],[0,1,1,0,1,0,0,0,0,0,0,0,0],[0,1,0,0,1,1,0,0,1,0,1,0,0],[0,1,0,0,1,1,0,0,1,1,1,0,0],[0,0,0,0,0,0,0,0,0,0,1,0,0],[0,0,0,0,0,0,0,1,1,1,0,0,0],[0,0,0,0,0,0,0,1,1,0,0,0,0]]
输出：6
解释：答案不应该是 11 ，因为岛屿只能包含水平或垂直这四个方向上的 1 。

示例 2：

输入：grid = [[0,0,0,0,0,0,0,0]]
输出：0

尝试

方法一 list加坐标

-spec max_area_of_island(Grid :: [[integer()]]) -> integer().
max_area_of_island(List) ->
  


  Length1 = length(List),
    [H | _] = List,
    Length2 = length(H),
    IndexList = make_index1(List, Length1, Length2, 0, 0, []),
    Max = check(IndexList, Length1, Length2, 0, 0).

make_index1([H | T], Length1, Length2, L1, L2, Res) ->
    NRes = make_index2(H, Length1, Length2, L1, L2, Res),
    make_index1(T, Length1, Length2, L1 + 1, L2, NRes);
make_index1([], _, _, _, _, Res) -> Res.

make_index2([H | T], Length1, Length2, L1, L2, Res) ->
    make_index2(T, Length1, Length2, L1, L2 + 1, Res ++ [{{L1, L2}, H}]);
make_index2([], _, _, _, _, Res) -> Res.


check(List, Length1, Length2, I, Max) when I < Length1 ->
    {List1, NMax} = check1(List, Length1, I, Length2, 0, Max),
    check(List1, Length1, Length2, I + 1, NMax);
check(_List, _L1, _L2, _I, Max) -> Max.

check1(List, Length1, I, Length2, II, Max) when II < Length2 ->
    case lists:keyfind({I, II}, 1, List) of
        {_, 1} ->
            {List1, TMax} = dfs(List, I, II, Length1, Length2),
            NMax = max(Max, TMax),
            {List1, NMax};
%%            case NMax /= Max of
%%                true ->
%%                    io:format("--------------{~w,~w}-------~w-~w-------~n", [I, II, Max, NMax]);
%%                false ->
%%                    io:format("--------------{~w,~w}-------~w-~w-------~n", [I, II, Max, NMax])
%%            end;
        {_, 0} ->
            NMax = Max,
            List1 = List,
            {List1, NMax}
    end,
    check1(List1, Length1, I, Length2, II + 1, NMax);
check1(List, _Length1, _I, _Length2, _II, Max) -> {List, Max}.

dfs(List, I, II, Length1, Length2) ->
    case I < 0 orelse II < 0 orelse I >= Length1 orelse II >= Length2 of
        true ->
            {List, 0};
        false ->
            case lists:keyfind({I, II}, 1, List) of
                {_, 1} ->
%%                    io:format("================{~w,~w}==================~n", [I, II]),
                    TempList = lists:keyreplace({I, II}, 1, List, {{I, II}, 0}),
%%                    io:format("--------------~w---------------~n", [TempList]),
                    Count = 1,

                    {TempList1, TCount1} = dfs(TempList, I + 1, II, Length1, Length2),
                    Count1 = Count + TCount1,
                    {TempList2, TCount2} = dfs(TempList1, I - 1, II, Length1, Length2),
                    Count2 = Count1 + TCount2,
                    {TempList3, TCount3} = dfs(TempList2, I, II + 1, Length1, Length2),
                    Count3 = Count2 + TCount3,
                    {TempList4, TCount4} = dfs(TempList3, I, II - 1, Length1, Length2),
                    Count4 = Count3 + TCount4,
                    {TempList4, Count4};
                {_, 0} ->
                    {List, 0}
            end
    end.

兴冲冲的提交一下，在这里插入图片描述

2612ms好家伙，听说map比较快，那我们试试再来！

方法二 map加坐标

-spec max_area_of_island(Grid :: [[integer()]]) -> integer().
max_area_of_island(List) ->
  


  Length1 = length(List),
    [H | _] = List,
    Length2 = length(H),
    Map = maps:new(),
    NewMap = make_index3(List, Length1, Length2, 0, 0, Map),
    Max = map_check(NewMap, Length1, Length2, 0, 0).

make_index3([H | T], Length1, Length2, L1, L2, Map) ->
    NRes = make_index4(H, Length1, Length2, L1, L2, Map),
    make_index3(T, Length1, Length2, L1 + 1, L2, NRes);
make_index3([], _, _, _, _, Res) -> Res.

make_index4([H | T], Length1, Length2, L1, L2, Res) ->
    make_index4(T, Length1, Length2, L1, L2 + 1, maps:put({L1,L2}, H, Res));
make_index4([], _, _, _, _, Res) -> Res.

map_check(Map, Length1, Length2, I, Max) when I < Length1 ->
    {Map1 ,NMax} = map_check1(Map, Length1, I, Length2, 0, Max),
    map_check(Map1, Length1, Length2, I + 1, NMax);
map_check(_List, _L1, _L2, _I, Max) -> Max.

map_check1(Map, Length1, I, Length2, II, Max) when II < Length2 ->
    case maps:get({I, II}, Map) of
        1 ->
            {Map1, TMax} = map_dfs(Map, I, II, Length1, Length2),
            NMax = max(Max, TMax);
        0 ->
            NMax = Max,
            Map1 = Map
    end,
    map_check1(Map1, Length1, I, Length2, II + 1, NMax);
map_check1(Map, _Length1, _I, _Length2, _II, Max) -> {Map, Max}.


map_dfs(Map, I, II, Length1, Length2) ->
    case I < 0 orelse II < 0 orelse I >= Length1 orelse II >= Length2 of
        true ->
            {Map, 0};
        false ->
            case maps:get({I, II}, Map) of
                1 ->
%%                    io:format("================{~w,~w}==================~n", [I, II]),
                    TempMap =  maps:put({I, II}, 0, Map),
%%                    TempList = lists:keyreplace({I, II}, 1, List, {{I, II}, 0}),
%%                    io:format("--------------~w---------------~n", [TempList]),
                    Count = 1,

                    {TempMap1, TCount1} = map_dfs(TempMap, I + 1, II, Length1, Length2),
                    Count1 = Count + TCount1,
                    {TempMap2, TCount2} = map_dfs(TempMap1, I - 1, II, Length1, Length2),
                    Count2 = Count1 + TCount2,
                    {TempMap3, TCount3} = map_dfs(TempMap2, I, II + 1, Length1, Length2),
                    Count3 = Count2 + TCount3,
                    {TempMap4, TCount4} = map_dfs(TempMap3, I, II - 1, Length1, Length2),
                    Count4 = Count3 + TCount4,

                    {TempMap4, Count4};
                0 ->
                    {Map, 0}
            end
    end.

再次提交，看看这次过了多少

在这里插入图片描述

260ms，舒服了，但是听说erlang自己实现了array，那再试试看呗

方法三 array实现

-spec max_area_of_island(Grid :: [[integer()]]) -> integer().
max_area_of_island(List) ->
  


  Length1 = length(List),
    [H | _] = List,
    Length2 = length(H),
    Map = maps:new(),

    Arr = array:new(),
    NewArr = make_index5(List, Length1, Length2, 0, 0, Arr),
%%    io:format("~w",[NewArr]),
    Max = arr_check(NewArr, Length1, Length2, 0, 0).

%% @doc array实现
make_index5([H | T], Length1, Length2, L1, L2, Arr) ->
    NRes = make_index6(H, Length1, Length2, L1, L2, array:set(L1, array:new(), Arr)),
    make_index5(T, Length1, Length2, L1 + 1, L2, NRes);
make_index5([], _, _, _, _, Res) -> Res.

make_index6([H | T], Length1, Length2, L1, L2, Arr) ->
    Tarr = array:get(L1, Arr),
    Tarr1 = array:set(L2, H, Tarr),
    NewArr = array:set(L1, Tarr1, Arr),
    make_index6(T, Length1, Length2, L1, L2 + 1, NewArr);
make_index6([], _, _, _, _, Res) -> Res.

arr_check(Arr, Length1, Length2, I, Max) when I < Length1 ->
    {Arr1, NMax} = arr_check1(Arr, Length1, I, Length2, 0, Max),
    arr_check(Arr1, Length1, Length2, I + 1, NMax);
arr_check(_List, _L1, _L2, _I, Max) -> Max.

arr_check1(Arr, Length1, I, Length2, II, Max) when II < Length2 ->
    case array:get(II,array:get(I, Arr)) of
        1 ->
            {Arr1, TMax} = arr_dfs(Arr, I, II, Length1, Length2),
            NMax = max(Max, TMax);
        0 ->
            NMax = Max,
            Arr1 = Arr
    end,
    arr_check1(Arr1, Length1, I, Length2, II + 1, NMax);
arr_check1(Arr, _Length1, _I, _Length2, _II, Max) -> {Arr, Max}.


arr_dfs(Arr, I, II, Length1, Length2) ->
    case I < 0 orelse II < 0 orelse I >= Length1 orelse II >= Length2 of
        true ->
            {Arr, 0};
        false ->
            case array:get(II,array:get(I,Arr)) of
                1 ->
%%                    io:format("================{~w,~w}==================~n", [I, II]),
                    A1 = array:get(I, Arr),
                    A2 = array:set(II, 0, A1),
                    NewArr = array:set(I, A2, Arr),
%%                    TempList = lists:keyreplace({I, II}, 1, List, {{I, II}, 0}),
%%                    io:format("--------------~w---------------~n", [TempList]),
                    Count = 1,

                    {NewArr1, TCount1} = arr_dfs(NewArr, I + 1, II, Length1, Length2),
                    Count1 = Count + TCount1,
                    {NewArr2, TCount2} = arr_dfs(NewArr1, I - 1, II, Length1, Length2),
                    Count2 = Count1 + TCount2,
                    {NewArr3, TCount3} = arr_dfs(NewArr2, I, II + 1, Length1, Length2),
                    Count3 = Count2 + TCount3,
                    {NewArr4, TCount4} = arr_dfs(NewArr3, I, II - 1, Length1, Length2),
                    Count4 = Count3 + TCount4,

                    {NewArr4, Count4};
                0 ->
                    {Arr, 0}
            end
    end.

提交！

在这里插入图片描述

好！晚安！

上上签i
关注
  • 1
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
专栏目录
订阅专栏
leetcode刷题记录（两数之和） 采用的语言是JavaScript
qq_41591368的博客
09-01 430
leetcode刷题记录两数之和 题目描述 给定一个整数数组 nums 和一个目标值 target，请你在该数组中找出和为目标值的那 两个 整数，并返回他们的数组下标。 你可以假设每种输入只会对应一个答案。但是，数组中同一个元素不能使用两遍。 示例: 给定 nums = [2, 7, 11, 15], target = 9 因为 nums[0] + nums[1] = 2 + 7 = 9 所以返回 [0, 1] 第一种解题思路 遍历数组 计算目标值与当前数组值的差值 查找差值是否存在于数组内部 判断是
erlang入门级练习：LeetCode OJ问题的部分erlang 源码
01-12
我自己在新学erlang，在LeetCode OJ上找了题目练习，题目很适合新手熟悉语言，但是LeetCode OJ里面只有几门主流语言的答案，下面是已完成的erlang源代码，后续有空再做其他问题续传，题目包含：（源码开头都有题目注释） "candy.erl","dungeon_game.erl", "interleaving_string.erl","search_insert_position.erl", "three_sum.erl","trapping_rain_water.erl", "valid_palindrome.erl" 个人认为dungeon_game这个题目解题逻辑很体现erlang的函数式的思维逻辑
leetcode 拆分成最多数目的偶整数之和
qq_27060423的博客
02-20 186
给你一个整数finalSum。请你将它拆分成若干个互不相同的偶整数之和，且拆分出来的偶整数数目最多。 比方说，给你finalSum = 12，那么这些拆分是符合要求的（互不相同的偶整数且和为finalSum）：(2 + 10)，(2 + 4 + 6)和(4 + 8)。它们中，(2 + 4 + 6)包含最多数目的整数。注意finalSum不能拆分成(2 + 2 + 4 + 4)，因为拆分出来的整数必须互不相同。 请你返回一个整数数组，表示将整数拆分成最多数目的偶整...
erlang算法系列-leetcode 2176. 统计数组中相等且可以被整除的数对（简单）
smallbire的专栏
02-21 126
erlang算法系列-leetcode 2176. 统计数组中相等且可以被整除的数对
erlang算法系列-leetcode 2166. 设计位集（中等）
smallbire的专栏
02-12 308
erlang算法系列-leetcode 2166. 设计位集
erlang-leetcode(解题系列）2139. 得到目标值的最少行动次数（中等）
smallbire的专栏
01-27 2195
erlang-leetcode(解题系列）2139. 得到目标值的最少行动次数
leetcode安卓-leetcode-erlang:LeetCodeErlang题解
06-30
leetcode-erlang 序号 题名 问题 题解 erl题解 难度 1 两数之和 简单 2 两数相加 中等 3 无重复字符的最长子串 中等 4 寻找两个有序数组的中位数 困难 5 最长回文子串 中等 6 Z 字形变换 中等 7 整数反转 简单 8 ...
任何编程语言的 LeetCode 解决方案
最新发布
10-16
任何编程语言的 LeetCode 解决方案 | 多种编程语言实现LeetCode、《剑指Offer（第2版）》、《程序员面试金典（第6版）》题解 本项目包含LeetCode、《剑指Offer（第2版）》、《剑指Offer（专项突击版）》、《程序员...
Leetcode解答。所有的问题都支持C++语言，一部分问题支持Java语言。
11-03
Leetcode解答。所有的问题都支持C++语言，一部分问题支持Java语言。
leetcode:关于leetcode网站上的题目代码
05-11
关于leetcode网站上的题目解法，语言选择的Java。后续会进行题目翻译和解法分析。 题目分析： Easy Leetcode 760 : Find Anagram Mapping Leetcode 762: Prime Number of Set Bits in Binary Representation ...
力扣（三）
Touale的博客
07-26 480
给定一个字符串 s ，请你找出其中不含有重复字符的 最长子串 的长度。 示例 1: 输入: s = "abcabcbb" 输出: 3 解释: 因为无重复字符的最长子串是 "abc"，所以其长度为 3。 示例 2: 输入: s = "bbbbb" 输出: 1 解释: 因为无重复字符的最长子串是 "b"，所以其长度为 1。 示例 3: 输入: s = "pwwkew" 输出: 3 解释: 因为无重复字符的最长子串是 "wke"，所以其长度为 3。 请注意，你的答案必须是 子串 的长度，"pw
leecode刷题：1.两数之和
weixin_43547900的博客
08-01 610
给定一个整数数组 nums和一个整数目标值 target，请你在该数组中找出 和为目标值 target的那两个整数，并返回它们的数组下标。 你可以假设每种输入只会对应一个答案。但是，数组中同一个元素在答案里不能重复出现。 你可以按任意顺序返回答案。 示例 1： 输入：nums = [2,7,11,15], target = 9 输出：[0,1] 解释：因为 nums[0] + nums[1] == 9 ，返回 [0, 1] 。 示例 2： 输入：nums = [3,2,4], targe...
erlang一道笔试题
好久不见
05-17 1533
%% @author ping %% @doc @todo Add description to six. %%用erlang实现，将二进制数据转为16进制表示的字符串。 %%比如输入>，返回"cc493e56" -module(six). -export([fan/1]). fan(Bin)-> Context = binary_to_list(Bin), lists:concat([
为什么使用Erlang?
weixin_33840661的博客
12-29 131
2019独角兽企业重金招聘Python工程师标准>>> ...
Erlang的并发性能也并非最强
weixin_34293059的博客
10-09 1221
过去曾认为Erlang就代表高并发，高并发就代表高性能，同时认为Erlang就只是高并发的代名词。其实，Erlang的并发性能也并非最强。首先Erlang的虚拟机是C写的，其次诸如Haskell、OCaml + JoCaml，以及Python的PyPy，其实都能提供不弱于Erlang的并发能力。同时Erlang在顺序计算上的性能也不佳，甚至不能超过Pyth...
leetcode第六天
Monkey233333的博客
08-03 144
因为某些不可言说的原因，现在开始要写十道leetcode上面的题目并且写博客解释，在一天之内！祝福我 问题：  给出 n 代表生成括号的对数，请你写出一个函数，使其能够生成所有可能的并且有效的括号组合。 例如，给出 n = 3，生成结果为： [ "((()))", "(()())", "(())()", "()(())", "()()()" ] 思路...
Erlang服务端开发（无需Erlang基础）笔试题
Genesislive的专栏
11-30 3025
某游戏公司Erlang服务端开发（无需Erlang基础）笔试题，面向C/C++程序员 一、用你熟悉的语言解决下面的问题。 1、反转输出字符串，并移除其中的空格。 2、快速的判断一个数是否素数的方法。 3、给一个数组进行排序。 4、设计一个背包系统，提供增加、查找、排序等功能。 请你设计数据结构。 二、给出下面题目的思路 5、已知当前位置（x，
【Leetcode】2. 两数相加
dangpianjikuang的博客
01-25 247
给你两个非空的链表，表示两个非负的整数。它们每位数字都是按照逆序的方式存储的，并且每个节点只能存储一位数字。 请你将两个数相加，并以相同形式返回一个表示和的链表。 你可以假设除了数字 0 之外，这两个数都不会以 0开头。 示例 1： 输入：l1 = [2,4,3], l2 = [5,6,4] 输出：[7,0,8] 解释：342 + 465 = 807. 示例 2： 输入：l1 = [0], l2 = [0] 输出：[0] 示例 3： 输入：l1 = [9,9...
关于leetcode刷题详细介绍
热门推荐
智者之家
10-01 8万+
  虽然刷题一直饱受诟病，不过不可否认刷题确实能锻炼我们的编程能力，相信每个认真刷题的人都会有体会。现在提供在线编程评测的平台有很多，比较有名的有 hihocoder，LintCode，以及这里我们关注的 LeetCode。 LeetCode收录了许多互联网公司的算法题目，被称为刷题神器，我虽然早有耳闻，不过却一直没有上面玩过。   据了解，LeetCode 是一个非常棒的 OJ（Online J...
leetcode用什么语言刷题
07-27
回答: 在引用\[1\]中提到了刷题软件LintCode，它可以用来刷题。至于刷题时使用的编程语言，可以根据个人的喜好和熟悉程度来选择。并没有特定的语言要求。所以在LeetCode上刷题时，可以使用任何一门适合自己的编程语言。 #### 引用[.reference_title] - *1* *2* *3* [刷leetcode使用python还是c++？](https://blog.csdn.net/JiuZhang_ninechapter/article/details/113648035)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v91^insertT0,239^v3^insert_chatgpt"}} ] [.reference_item] [ .reference_list ]

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

上上签i

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值