System Function FMT - Revision history

Paul Robinson: t/c

2019-10-13T22:20:28Z

t/c

← Older revision		Revision as of 18:20, 13 October 2019
Line 374:		Line 374:

	{{SFDM\|FMT}}		{{SFDM\|FMT}}
	{{Article footer}}		{{Article footer\|0\|NO}}

WikiSysop at 05:05, 16 April 2018

2018-04-16T05:05:38Z

← Older revision		Revision as of 01:05, 16 April 2018
Line 26:		Line 26:
	<p>For example,</p>		<p>For example,</p>

	<~~apll~~>		<pre>
	~~      ~~⎕fmt ⍳3~~<br />~~		⎕fmt ⍳3
	┌3────┐~~<br />~~		┌3────┐
	│1 2 3│~~<br />~~		│1 2 3│
	└~────┘~~<br />~~		└~────┘
	~~      ~~⎕fmt ⍳¨⍳3~~<br />~~		⎕fmt ⍳¨⍳3
	┌3──────────────────┐~~<br />~~		┌3──────────────────┐
	│ ┌1┐~~ ~~┌2──┐~~ ~~┌3────┐ │~~<br />~~		│ ┌1┐ ┌2──┐ ┌3────┐ │
	│ │1│~~ ~~│1 2│~~ ~~│1 2 3│ │~~<br />~~		│ │1│ │1 2│ │1 2 3│ │
	│ └~┘~~ ~~└~──┘~~ ~~└~────┘ 2~~<br />~~		│ └~┘ └~──┘ └~────┘ 2
	└∊──────────────────┘~~<br />~~		└∊──────────────────┘
	~~      ~~⎕fmt 1 1 4⍴23 'abc' '*' (2 3⍴⍳6)~~<br />~~		⎕fmt 1 1 4⍴23 'abc' '*' (2 3⍴⍳6)
	┌┬4────────────────────┐~~<br />~~		┌┬4────────────────────┐
	11 ~~   ~~┌3──┐~~   ~~┌3─────┐ │~~<br />~~		11 ┌3──┐ ┌3─────┐ │
	││ 23~~ ~~│abc│~~ ~~*~~ ~~2 1 2 3│ │~~<br />~~		││ 23 │abc│ * 2 1 2 3│ │
	││ ~~~~ ~~└───┘~~ ~~¯~~ ~~│ 4 5 6│ │~~<br />~~		││ ~~ └───┘ ¯ │ 4 5 6│ │
	││ ~~           ~~└~─────┘ 2~~<br />~~		││ └~─────┘ 2
	└┴∊────────────────────┘~~<br />~~		└┴∊────────────────────┘
	</~~apll~~>		</pre>

Robert Wallick: /* Monadic Function */ added 2 ⎕CR '#BoxFMT'

2015-07-31T01:04:53Z

Monadic Function: added 2 ⎕CR '#BoxFMT'

← Older revision		Revision as of 21:04, 30 July 2015
Line 51:		Line 51:

	<p><sup>1</sup> [http://portal.acm.org/citation.cfm?id=55664 "The Compact Display of Arbitrary Nested Arrays"] D. A. Rabenhorst (IBM), APL88 Conference Proceedings, pp 272-277, ACM.</p>		<p><sup>1</sup> [http://portal.acm.org/citation.cfm?id=55664 "The Compact Display of Arbitrary Nested Arrays"] D. A. Rabenhorst (IBM), APL88 Conference Proceedings, pp 272-277, ACM.</p>

			<hr width=55%>
			APL code for Magic Function #BoxFMT(July 2015):
			<pre>
			2 ⎕CR '#BoxFMT'
			Z←Z #BoxFMT R;RD;LD;D
			LD←⍕(0≠⍴⍴R)/¯1↑⍴R
			RD←⍕⍪¯1↓⍴R
			RD←(+/RD=' ')⌽RD
			D←¯2+⍴⍴Z
			:if D>0
			:while 2<⍴⍴Z
			Z←,[¯3 ¯2] Z,[¯2]' '
			:endwhile
			Z←(-D)↓[0]Z
			:endif
			Z←(¯2↑1,⍴Z)⍴Z ⋄ Z←((⍴Z)⌈(¯1↑⍴RD),⍴LD)↑Z
			:if 1≥⍴⍴R
			RD←((1↑⍴Z),1)⍴'│'
			:else
			RD←⍉(1↑⍴Z)↑[1] RD ⋄ RD[(,RD=' ')/,⍳⍴RD]←'│'
			:endif
			RD←'┬'⍪RD⍪'┴' ⋄ RD[0 ¯1;0]←'┌└'
			Z←Z,'│'
			D←≡R
			:if 1<D
			D←⍕D
			Z[⍳-⍴D;¯1]←⌽D
			:endif
			Z←'─'⍪Z⍪'─'
			Z[0 ¯1;¯1]←'┐┘'
			Z[0;⍳⍴LD]←LD
			Z[¯1;0]←Type
			Z←RD,Z
			</pre>

			For a list of <u>all</u> magic functions implemented in NARS, see [[System_Function_NL\|⎕NL 23 24]]

	==Dyadic Function==		==Dyadic Function==

Robert Wallick: /* Dyadic Function */ minor formatting

2015-03-05T00:22:55Z

Dyadic Function: minor formatting

← Older revision		Revision as of 20:22, 4 March 2015
Line 75:		Line 75:

	</table>		</table>
	'''Quad FMT''' sample ''dyadic'' ~~calls~~:		<br><big>'''Quad FMT''' sample ''dyadic'' usage:</big>
	<big><pre>		<big><pre>
	'CI 14' ⎕FMT ⎕WA ⍝ C=use commas(",") modifier; I=Integer format; 14=reserve 14 spaces. ⎕WA=free workspace area.		'CI 14' ⎕FMT ⎕WA ⍝ C=use commas(",") modifier; I=Integer format; 14=reserve 14 spaces. ⎕WA=free workspace area.

Robert Wallick: added date, telephone #s examples

2015-03-05T00:18:25Z

added date, telephone #s examples

← Older revision		Revision as of 20:18, 4 March 2015
Line 18:		Line 18:
	</tr>		</tr>
	<tr>		<tr>
	<td><apll>Z</apll> is a ~~character matrix~~ which reveals the array structure and types of the elements of <apll>R</apll>.</td>		<td><apll>Z</apll> is a Character MATRIX which reveals the array structure and types of the elements of <apll>R</apll>.</td>
	</tr>		</tr>

Line 76:		Line 76:
	</table>		</table>
	'''Quad FMT''' sample ''dyadic'' calls:		'''Quad FMT''' sample ''dyadic'' calls:
	<pre>		<big><pre>
	'CI 14' ⎕FMT ⎕WA ⍝ C=use commas(",") modifier; I=Integer format; 14=reserve 14 spaces. ⎕WA=free workspace area.		'CI 14' ⎕FMT ⎕WA ⍝ C=use commas(",") modifier; I=Integer format; 14=reserve 14 spaces. ⎕WA=free workspace area.
	50,825,084,928 ⍝ Result shown by APL, commas inserted. Easily readable, over 50 gigabytes of free work area.		50,825,084,928 ⍝ Result shown by APL, commas inserted. Easily readable, over 50 gigabytes of free work area.
Line 83:		Line 83:
	'CF 14.2' ⎕FMT 44888.769 ⍝ C=Commas modifier, F=Floating point number format; 14 reserved spaces; 2 decimals. .769 to .77		'CF 14.2' ⎕FMT 44888.769 ⍝ C=Commas modifier, F=Floating point number format; 14 reserved spaces; 2 decimals. .769 to .77
	44,888.77		44,888.77
	</pre>
			'G<99/99/9999>' ⎕FMT 03042015 ⍝ G<...>=General picture formatting(like Cobol Gen picture fmt), in this case formatting for a date!
			03/04/2015
			⍴('G<99/99/9999>' ⎕FMT 03042015) ⍝ Note that OUTPUT from ⎕FMT is a Char/string MATRIX (NOT a vector), in this case a ONE ROW matrix.
			1 10

			'G<(999) 999-9999>' ⎕FMT 8005126200 8004443300 ⍝ Formatting for telephone numbers. Output = 2-row character matrix.
			(800) 512-6200
			(800) 444-3300
			</pre></big>
	<br />		<br />

Robert Wallick: Added sample dyadic calls

2015-02-02T19:18:14Z

Added sample dyadic calls

← Older revision		Revision as of 15:18, 2 February 2015
Line 75:		Line 75:

	</table>		</table>
			'''Quad FMT''' sample ''dyadic'' calls:
			<pre>
			'CI 14' ⎕FMT ⎕WA ⍝ C=use commas(",") modifier; I=Integer format; 14=reserve 14 spaces. ⎕WA=free workspace area.
			50,825,084,928 ⍝ Result shown by APL, commas inserted. Easily readable, over 50 gigabytes of free work area.
			'CI 13' ⎕FMT ⎕WA ⍝ Same as 1st example, but too FEW spaces allowed for(only 13); hence, APL returns all asterisks(*).
			*************
			'CF 14.2' ⎕FMT 44888.769 ⍝ C=Commas modifier, F=Floating point number format; 14 reserved spaces; 2 decimals. .769 to .77
			44,888.77
			</pre>
	<br />		<br />

Paul Robinson: /* Specific Value Substitution */

2014-11-27T00:56:11Z

Specific Value Substitution

← Older revision		Revision as of 20:56, 26 November 2014
Line 319:		Line 319:

	{{SFDM\|FMT}}		{{SFDM\|FMT}}
			{{Article footer}}

Paul Robinson: /* Specific Value Substitution */ remove now redundant template

2014-11-24T14:00:57Z

Specific Value Substitution: remove now redundant template

← Older revision		Revision as of 10:00, 24 November 2014
Line 319:		Line 319:

	{{SFDM\|FMT}}		{{SFDM\|FMT}}
	~~{{System Variables}}~~

Paul Robinson at 01:37, 28 February 2013

2013-02-28T01:37:08Z

← Older revision		Revision as of 21:37, 27 February 2013
Line 319:		Line 319:

	{{SFDM\|FMT}}		{{SFDM\|FMT}}


	{{System Variables}}		{{System Variables}}

Paul Robinson: /* Specific Value Substitution */

2013-02-28T00:46:19Z

Specific Value Substitution

← Older revision		Revision as of 20:46, 27 February 2013
Line 318:		Line 318:
	<p>Unlike all other Decorators, this one may appear multiple times within a single Format Phrase.</p>		<p>Unlike all other Decorators, this one may appear multiple times within a single Format Phrase.</p>

			{{SFDM\|FMT}}

	~~{quad}FMT is available in ''[[monadic]]'' and ''[[dyadic]]'' forms, and as a system function, you cannot assign a value to it.~~

	{{System Variables}}		{{System Variables}}