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

科技回声

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

GitHubTwitter

首页

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

资源链接

HackerNews API原版 HackerNewsNext.js

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

Extending COBOL with Scheme and Brainfuck

16 点作者 wingo将近 14 年前

3 条评论

btiffin将近 14 年前
APL extensions for OpenCOBOL sounds like a grand idea.<p>Just built the newly GPL'ed version of JSoftware's J announced by Eric Iverson. I'll give it a try.<p>Ok, first cut. Don't know enough APL (J) yet to get output to prove it's working, but it inits and evaluates 1 + 1 without any error codes.<p><pre><code> *&#62; *************************************************************** *&#62; Author: Brian Tiffin *&#62; Date: 20110711 *&#62; Purpose: Attempt calling a J sentence. APL in COBOL. *&#62; Tectonics: cobc -x callj.cob -lj *&#62; *************************************************************** identification division. program-id. callj. data division. working-storage section. 77 jptr usage pointer. 77 result usage binary-long. *&#62; *************************************************************** procedure division. call "JInit" returning jptr end-call display jptr end-display call "JDo" using by value jptr by content z"a =. 1 + 1" returning result end-call display result end-display goback. end program callj. $ cobc -x callj.cob -lj 0x00007f06912bf010 +0000000000 </code></pre> Life can be a lot of fun.
michael_dorfman将近 14 年前
Extending COBOL with Brainfuck is wonderfully twisted, but you know what I want? A Brainfuck-to-COBOL interpreter implemented as a Turing Machine. Now, <i>there's</i> a nice weekend project for somebody....
mhd将近 14 年前
No APL? Now <i>that</i> would be an awkward marriage…