Paste: Still no idea about cond

Author:	Leonidas
Mode:	factor
Date:	Wed, 24 Feb 2010 21:58:40

Plain Text |

Delete Paste

: subtail ( seq n -- seq ) short tail ;
: subtail* ( seq n -- seq ) short tail* ;

: unclip-nlast ( seq n -- seq seq ) 2dup subtail* [ subtail ] dip ;

: apply-rules ( seq -- seq ? ) {
  { [ dup 2 unclip-nlast { right left } = ] [ nip { left right } append t ] }
  [ f ]
} cond ;

Annotation: Leonidas learned cond

Author:	Leonidas
Mode:	factor
Date:	Wed, 24 Feb 2010 22:11:32

Plain Text |

Delete Annotation

: subtail ( seq n -- seq ) short tail ;
: subtail* ( seq n -- seq ) short tail* ;

: unclip-nlast ( seq n -- seq seq ) 2dup subtail* [ subtail ] dip ;

: apply-rules ( seq -- seq ? ) {
  { [ dup 2 unclip-nlast { right left } = ] [ nip { left right } append t ] }
  [ drop f ]
} cond ;

New Annotation

Summary:
Author:
Mode:	actionscriptada95antlrapacheconfapdlapplescriptaspaspect-jassembly-m68kassembly-macro32assembly-parrotassembly-r2000assembly-x86awkbbatchbbjbcelbeanshellbibtexcc#c++chillcilclipscobolcoldfusioncsscsvcudacvs-commitddjangodoxygendsssleiffelembperlerlangfactorfhtmlforthfortranfoxprofreemarkergettextgnuplotgroovyhaskellhexhlslhtaccesshtmli4gliconidlinforminiinno-setupinterlisiojavajavaccjavascriptjcljhtmljmkjsplatexlilypondlispliterate-haskelllotosluamailmakefilemaplemlmodula3moinmqscmyghtymysqlnetrexxnqcnsis2objective-cobjectrexxoccamomnimarkpascalpatchperlphppikepl-sqlpl1pop11postscriptpovraypowerdynamoprogressprologpropertiespspptlpvwavepyrexpythonrcprdrebolredcoderelax-ng-compactrenderman-ribrestrfcrhtmlrpm-specrtfrubyrviews#s+sasschemesdl/prsgmlshellscriptshtmlslatesmalltalksmi-mibsql-loadersqrsquidconfsvn-commitswigtcltemplate-toolkittextexinfotexttpltransact-sqltwikityposcriptuscriptvbscriptvelocityverilogvhdlxmlxqxslzpt
Body:

Done