TE
科技回声
首页24小时热榜最新最佳问答展示工作
GitHubTwitter
首页

科技回声

基于 Next.js 构建的科技新闻平台,提供全球科技新闻和讨论内容。

GitHubTwitter

首页

首页最新最佳问答展示工作

资源链接

HackerNews API原版 HackerNewsNext.js

© 2025 科技回声. 版权所有。

Trabb Pardo-Knuth algorithm

4 点作者 pius大约 17 年前

1 comment

dreish大约 17 年前
In Arc, as written by a n00b:<p><pre><code> (= f [+ (sqrt abs._) (* 5 expt._.3)]) (= a '()) (repeat 11 (= a (cons (coerce (read) 'int) a))) (each i a (let f_i f.i (if (&#62; f_i 400) (prn i " TOO LARGE") (prn f_i)))) </code></pre> Not sure if reversing-while-reading is considered "cheating", but it seems natural to do it with a cons.