当前位置：文江博客话题详情

相当于Scheme中Java的IndexOf()？

发布于 2024-08-14 21:30:09 字数 69 浏览 2 评论 0原文

我正在Scheme中开发一个小程序，但我陷入了困境。有没有类似于Java的indexOf()的东西可以在Scheme中使用？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

琴流音 2024-08-21 21:30:09

可能有，但通常教授希望你自己写。

这是 C 风格的伪代码，因为我不想记住语法。

int indexOf(element, list, i)
{
    if car(list) == element then
        return i+1;
    else
        indexOf(element, cdr(list), i+1);
}

请注意，调用它需要为 i 传入 0（如果您愿意，您可以编写一个包装器），并且这是基于 1 的索引，如果您想要基于 0 的索引，请将返回值更改为 i

There may be, but typically professors want you to write your own.

Here is C style psuedo code since I don't want to remember the syntax.

int indexOf(element, list, i)
{
    if car(list) == element then
        return i+1;
    else
        indexOf(element, cdr(list), i+1);
}

Note that calling it requires passing in 0 for i (You could write a wrapper if you like), and that this is 1 based indexing, change the return to be i if you want 0 based indexing

回复收藏 0 原文

ぽ尐不点ル 2024-08-21 21:30:09

假设您尝试在字符串中搜索（并且这不是旨在帮助您理解递归的作业），那么您可以尝试此处的函数：

http://okmij.org/ftp/Scheme/util.html

回复收藏 0 原文

旧人哭 2024-08-21 21:30:09

从您的问题中不清楚您正在使用什么方案实现。

如果是 PLT 方案，您可能正在寻找类似“regexp-match-positions”的内容。

(car (car (regexp-match-positions (regexp-quote "zip") "zapzipdingzip")))

It's not clear from your question what Scheme implementation you're using.

If it's PLT Scheme, you're probably looking for something like "regexp-match-positions".

(car (car (regexp-match-positions (regexp-quote "zip") "zapzipdingzip")))

回复收藏 0 原文

山有枢 2024-08-21 21:30:09

例如，在 PLT-Scheme 中，方法是使用 string->list 将字符串转换为列表，然后使用许多可用方法之一对列表进行操作。完成后将列表转换回字符串。

回复收藏 0 原文

滥情哥ㄟ 2024-08-21 21:30:09

搜索列表（相当安全）：

(define indexOf
  (lambda (element lst)
    (indexOfHelper element lst 0)))

(define indexOfHelper
  (lambda (e l i)
    (cond
      [(null? l) -1]
      [(equal? e (car l)) i]
      [else (indexOfHelper e (cdr l) (+ i 1))])))

Searching list (pretty safe):

(define indexOf
  (lambda (element lst)
    (indexOfHelper element lst 0)))

(define indexOfHelper
  (lambda (e l i)
    (cond
      [(null? l) -1]
      [(equal? e (car l)) i]
      [else (indexOfHelper e (cdr l) (+ i 1))])))

回复收藏 0 原文

~没有更多了~