June 2018 Update
This commit is contained in:
parent
ba8067c3b7
commit
22f33d4004
5278 changed files with 84726 additions and 14379 deletions
12
Task/Word-wrap/Factor/word-wrap.factor
Normal file
12
Task/Word-wrap/Factor/word-wrap.factor
Normal file
|
|
@ -0,0 +1,12 @@
|
|||
USE: wrap.strings
|
||||
IN: scratchpad "Most languages in widespread use today are applicative languages
|
||||
: the central construct in the language is some form of function call, where a f
|
||||
unction is applied to a set of parameters, where each parameter is itself the re
|
||||
sult of a function call, the name of a variable, or a constant. In stack languag
|
||||
es, a function call is made by simply writing the name of the function; the para
|
||||
meters are implicit, and they have to already be on the stack when the call is m
|
||||
ade. The result of the function call (if any) is then left on the stack after th
|
||||
e function returns, for the next function to consume, and so on. Because functio
|
||||
ns are invoked simply by mentioning their name without any additional syntax, Fo
|
||||
rth and Factor refer to functions as words, because in the syntax they really ar
|
||||
e just words." [ 60 wrap-string print nl ] [ 45 wrap-string print ] bi
|
||||
12
Task/Word-wrap/Julia/word-wrap.julia
Normal file
12
Task/Word-wrap/Julia/word-wrap.julia
Normal file
|
|
@ -0,0 +1,12 @@
|
|||
using TextWrap
|
||||
|
||||
text = """Reformat the single paragraph in 'text' to fit in lines of no more
|
||||
than 'width' columns, and return a new string containing the entire
|
||||
wrapped paragraph. As with wrap(), tabs are expanded and other
|
||||
whitespace characters converted to space. See TextWrapper class for
|
||||
available keyword args to customize wrapping behaviour."""
|
||||
|
||||
println("# Wrapped at 80 chars")
|
||||
print_wrapped(text, width=80)
|
||||
println("\n\n# Wrapped at 70 chars")
|
||||
print_wrapped(text, width=70)
|
||||
33
Task/Word-wrap/Ring/word-wrap.ring
Normal file
33
Task/Word-wrap/Ring/word-wrap.ring
Normal file
|
|
@ -0,0 +1,33 @@
|
|||
# Project : Word wrap
|
||||
# Date : 2018/01/02
|
||||
# Author : Gal Zsolt (~ CalmoSoft ~)
|
||||
# Email : <calmosoft@gmail.com>
|
||||
|
||||
load "stdlib.ring"
|
||||
|
||||
doc = "In olden times when wishing still helped one, there lived a king
|
||||
whose daughters were all beautiful, but the youngest was so beautiful
|
||||
that the sun itself, which has seen so much, was astonished whenever
|
||||
it shone in her face. Close by the king's castle lay a great dark
|
||||
forest, and under an old lime-tree in the forest was a well, and when
|
||||
the day was very warm, the king's child went out into the forest and
|
||||
sat down by the side of the cool fountain, and when she was bored she
|
||||
took a golden ball, and threw it up on high and caught it, and this
|
||||
ball was her favorite plaything."
|
||||
|
||||
wordwrap(doc,72)
|
||||
wordwrap(doc,80)
|
||||
|
||||
func wordwrap(doc, maxline)
|
||||
words = split(doc, " ")
|
||||
line = words[1]
|
||||
for i=2 to len(words)
|
||||
word = words[i]
|
||||
if len(line)+len(word)+1 > maxline
|
||||
see line + nl
|
||||
line = word
|
||||
else
|
||||
line = line + " " + word
|
||||
ok
|
||||
next
|
||||
see line + nl + nl
|
||||
Loading…
Add table
Add a link
Reference in a new issue