Abbreviations, easy: Difference between revisions

← Older edit

Abbreviations, easy (view source)

Revision as of 10:11, 18 March 2024

58,102 bytes added , 2 months ago

Added FreeBASIC

Jjuanhdez

2,122

edits

Revision as of 13:25, 15 November 2020 (view source) rosettacode>Aschloegl (→‎{{header\|Nanoquery}}) ← Older edit		Latest revision as of 10:11, 18 March 2024 (view source) Jjuanhdez (talk \| contribs) (Added FreeBASIC)
(33 intermediate revisions by 22 users not shown)
Line 84: {{Template:Strings}} <br><br> =={{header\|11l}}== {{trans\|Python}} <syntaxhighlight lang="11l">V command_table_text = \|‘Add ALTer BAckup Bottom CAppend Change SCHANGE CInsert CLAst COMPress COpy COUnt COVerlay CURsor DELete CDelete Down DUPlicate Xedit EXPand EXTract Find NFind NFINDUp NFUp CFind FINdup FUp FOrward GET Help HEXType Input POWerinput Join SPlit SPLTJOIN LOAD Locate CLocate LOWercase UPPercase LPrefix MACRO MErge MODify MOve MSG Next Overlay PARSE PREServe PURge PUT PUTD Query QUIT READ RECover REFRESH RENum REPeat Replace CReplace RESet RESTore RGTLEFT RIght LEft SAVE SET SHift SI SORT SOS STAck STATus TOP TRAnsfer Type Up’ V user_words = ‘riG rePEAT copies put mo rest types fup. 6 poweRin’ F find_abbreviations_length(command_table_text) ‘ find the minimal abbreviation length for each word by counting capital letters. a word that does not have capital letters gets it's full length as the minimum. ’ [String = Int] command_table L(word) command_table_text.split((‘ ’, "\n"), group_delimiters' 1B) V abbr_len = sum(word.filter(c -> c.is_uppercase()).map(c -> 1)) I abbr_len == 0 abbr_len = word.len command_table[word] = abbr_len R command_table F find_abbreviations(command_table) ‘ for each command insert all possible abbreviations’ [String = String] abbreviations L(command, min_abbr_len) command_table L(l) min_abbr_len .. command.len V abbr = command[0 .< l].lowercase() abbreviations[abbr] = command.uppercase() R abbreviations F parse_user_string(user_string, abbreviations) V user_words = user_string.split(‘ ’, group_delimiters' 1B).map(word -> word.lowercase()) V commands = user_words.map(user_word -> @abbreviations.get(user_word, ‘error’)) R commands.join(‘ ’) V command_table = find_abbreviations_length(command_table_text) V abbreviations_table = find_abbreviations(command_table) V full_words = parse_user_string(user_words, abbreviations_table) print(‘user words: ’user_words) print(‘full words: ’full_words)</syntaxhighlight> {{out}} <pre> user words: riG rePEAT copies put mo rest types fup. 6 poweRin full words: RIGHT REPEAT error PUT MOVE RESTORE error error error POWERINPUT </pre> =={{header\|AArch64 Assembly}}== {{works with\|as\|Raspberry Pi 3B version Buster 64 bits}} <syntaxhighlight lang="aarch64 assembly"> /* ARM assembly AARCH64 Raspberry PI 3B / / program abbrEasy64.s / / store list of command in a file / / and run the program abbrEasy64 command.file / /*****************************************/ / Constantes file / /*****************************************/ / for this file see task include a file in language AArch64 assembly/ .include "../includeConstantesARM64.inc" .equ BUFFERSIZE, 1000 .equ NBMAXIELEMENTS, 100 /*******************************/ / Initialized data / /*******************************/ .data szMessTitre: .asciz "Nom du fichier : " szCarriageReturn: .asciz "\n" szMessErreur: .asciz "Error detected.\n" szMessErrBuffer: .asciz "buffer size too less !!" szMessErrorAbr: .asciz "error" szMessInput: .asciz "Enter command (or quit to stop) : " szCmdQuit: .asciz "QUIT" szValTest1: .asciz "Quit" szValTest2: .asciz "Rep" /*******************************/ / UnInitialized data / /*******************************/ .bss .align 4 sZoneConv: .skip 24 qAdrFicName: .skip 8 iTabAdrCmd: .skip 8 NBMAXIELEMENTS sBufferCmd: .skip BUFFERSIZE sBuffer: .skip BUFFERSIZE /********************************/ / code section / /******************************/ .text .global main main: // INFO: main mov x0,sp // stack address for load parameter bl traitFic // read file and store value in array cmp x0,#-1 beq 100f // error ? ldr x0,qAdriTabAdrCmd bl controlLoad 1: ldr x0,qAdrszMessInput // display input message bl affichageMess mov x0,#STDIN // Linux input console ldr x1,qAdrsBuffer // buffer address mov x2,#BUFFERSIZE // buffer size mov x8, #READ // request to read datas svc 0 // call system sub x0,x0,#1 mov x2,#0 strb w2,[x1,x0] // replace character 0xA by zéro final ldr x0,qAdrsBuffer ldr x1,qAdriTabAdrCmd bl controlCommand // control text command mov x2,x0 bl affichageMess ldr x0,qAdrszCarriageReturn bl affichageMess mov x0,x2 ldr x1,qAdrszCmdQuit // command quit ? bl comparStrings cmp x0,#0 beq 100f // yes -> end b 1b // else loop 99: ldr x0,qAdrszMessErrBuffer bl affichageMess 100: // standard end of the program mov x0, #0 // return code mov x8, #EXIT // request to exit program svc #0 // perform the system call qAdrszCarriageReturn: .quad szCarriageReturn qAdrszMessErrBuffer: .quad szMessErrBuffer qAdrsZoneConv: .quad sZoneConv qAdrszMessInput: .quad szMessInput qAdrszCmdQuit: .quad szCmdQuit /***************************************************************/ / control abbrevation command / /****************************************************************/ / x0 contains string input command / / x1 contains address table string command / controlCommand: // INFO: controlCommand stp x1,lr,[sp,-16]! // save registres stp x2,x3,[sp,-16]! // save registres stp x4,x5,[sp,-16]! // save registres stp x6,x7,[sp,-16]! // save registres stp x8,x9,[sp,-16]! // save registres mov x8,x0 mov x9,x1 bl computeLength // length input command mov x4,x0 // save length input mov x2,#0 // indice mov x3,#0 // find counter 1: // loop search command in table ldr x1,[x9,x2,lsl #3] // load a item cmp x1,#0 // end ? beq 5f mov x0,x8 bl comparStringSpe // cmp x0,#0 // no found other search beq 4f mov x6,#0 mov x5,#0 2: // loop count capital letters ldrb w0,[x1,x6] cmp x0,#0 beq 3f tst x0,#0x20 // capital letter ? cinc x5,x5,eq add x6,x6,#1 b 2b 3: cmp x4,x5 // input < command capital letters blt 4f // no correct add x3,x3,#1 // else increment counter mov x7,x1 // and save address command 4: add x2,x2,#1 // increment indice b 1b // and loop 5: cmp x3,#1 // no find or multiple find ? bne 99f // error // one find mov x0,x7 // length command table bl computeLength cmp x4,x0 // length input > command ? bgt 99f // error // OK mov x4,#0x20 // 5 bit to 1 mov x2,#0 6: ldrb w3,[x7,x2] cmp x3,#0 beq 7f bic x3,x3,x4 // convert to capital letter strb w3,[x8,x2] add x2,x2,#1 b 6b 7: strb w3,[x8,x2] // store zéro final mov x0,x8 // return string input address b 100f 99: ldr x0,qAdrszMessErrorAbr // return string "error" 100: ldp x8,x9,[sp],16 // restaur des 2 registres ldp x6,x7,[sp],16 // restaur des 2 registres ldp x4,x5,[sp],16 // restaur des 2 registres ldp x2,x3,[sp],16 // restaur des 2 registres ldp x1,lr,[sp],16 // restaur des 2 registres ret qAdrszMessErreur: .quad szMessErreur qAdrszMessErrorAbr: .quad szMessErrorAbr /****************************************************************/ / comparaison first letters String / /****************************************************************/ / x0 contains first String / / x1 contains second string / / x0 return 0 if not find else returns number letters OK / comparStringSpe: stp x1,lr,[sp,-16]! // save registres stp x2,x3,[sp,-16]! // save registres stp x4,x5,[sp,-16]! // save registres stp x6,x7,[sp,-16]! // save registres mov x2,#0 1: ldrb w3,[x0,x2] // input orr x4,x3,#0x20 // convert capital letter ldrb w5,[x1,x2] // table orr x6,x5,#0x20 // convert capital letter cmp x4,x6 bne 2f cmp x3,#0 beq 3f add x2,x2,#1 b 1b 2: cmp x3,#0 // fist letters Ok beq 3f mov x0,#0 // no ok b 100f 3: mov x0,x2 100: ldp x6,x7,[sp],16 // restaur des 2 registres ldp x4,x5,[sp],16 // restaur des 2 registres ldp x2,x3,[sp],16 // restaur des 2 registres ldp x1,lr,[sp],16 // restaur des 2 registres ret /****************************************************************/ / compute length String / /****************************************************************/ / x0 contains String / / x0 return length / computeLength: stp x1,lr,[sp,-16]! // save registres stp x2,x3,[sp,-16]! // save registres mov x1,#0 1: ldrb w2,[x0,x1] cmp x2,#0 // end ? beq 2f add x1,x1,#1 b 1b 2: mov x0,x1 // return length in x0 100: ldp x2,x3,[sp],16 // restaur des 2 registres ldp x1,lr,[sp],16 // restaur des 2 registres ret /****************************************************************/ / read file / /****************************************************************/ / x0 contains address stack begin / traitFic: // INFO: traitFic stp x1,lr,[sp,-16]! // save registres stp x2,x3,[sp,-16]! // save registres stp x4,x5,[sp,-16]! // save registres stp x6,x7,[sp,-16]! // save registres stp x8,fp,[sp,-16]! // save registres mov fp,x0 // fp <- start address ldr x4,[fp] // number of Command line arguments cmp x4,#1 ble 99f add x5,fp,#16 // second parameter address ldr x5,[x5] ldr x0,qAdrqAdrFicName str x5,[x0] ldr x0,qAdrszMessTitre bl affichageMess // display string mov x0,x5 bl affichageMess ldr x0,qAdrszCarriageReturn bl affichageMess // display carriage return mov x0,AT_FDCWD mov x1,x5 // file name mov x2,#O_RDWR // flags mov x3,#0 // mode mov x8, #OPEN // call system OPEN svc 0 cmp x0,#0 // error ? ble 99f mov x7,x0 // File Descriptor ldr x1,qAdrsBufferCmd // buffer address mov x2,#BUFFERSIZE // buffer size mov x8,#READ // read file svc #0 cmp x0,#0 // error ? blt 99f // extraction datas ldr x1,qAdrsBufferCmd // buffer address add x1,x1,x0 mov x0,#0 // store zéro final strb w0,[x1] ldr x0,qAdriTabAdrCmd // key string command table ldr x1,qAdrsBufferCmd // buffer address bl extracDatas // close file mov x0,x7 mov x8, #CLOSE svc 0 mov x0,#0 b 100f 99: // error ldr x0,qAdrszMessErreur // error message bl affichageMess mov x0,#-1 100: ldp x8,fp,[sp],16 // restaur des 2 registres ldp x6,x7,[sp],16 // restaur des 2 registres ldp x4,x5,[sp],16 // restaur des 2 registres ldp x2,x3,[sp],16 // restaur des 2 registres ldp x1,lr,[sp],16 // restaur des 2 registres ret qAdrqAdrFicName: .quad qAdrFicName qAdrszMessTitre: .quad szMessTitre qAdrsBuffer: .quad sBuffer qAdrsBufferCmd: .quad sBufferCmd qAdriTabAdrCmd: .quad iTabAdrCmd /****************************************************************/ / extrac digit file buffer / /****************************************************************/ / x0 contains strings address / / x1 contains buffer address / extracDatas: // INFO: extracDatas stp x1,lr,[sp,-16]! // save registres stp x2,x3,[sp,-16]! // save registres stp x4,x5,[sp,-16]! // save registres stp x6,x7,[sp,-16]! // save registres stp x8,fp,[sp,-16]! // save registres mov x7,x0 mov x6,x1 mov x2,#0 // string buffer indice mov x4,x1 // start string mov x5,#0 // string index //vidregtit debextrac 1: ldrb w3,[x6,x2] cmp x3,#0 beq 4f // end cmp x3,#0xA beq 2f cmp x3,#' ' // end string beq 3f add x2,x2,#1 b 1b 2: mov x3,#0 strb w3,[x6,x2] ldrb w3,[x6,x2] cmp x3,#0xD bne 21f add x2,x2,#2 b 4f 21: add x2,x2,#1 b 4f 3: mov x3,#0 strb w3,[x6,x2] add x2,x2,#1 4: mov x0,x4 str x4,[x7,x5,lsl #3] add x5,x5,#1 5: ldrb w3,[x6,x2] cmp x3,#0 beq 100f cmp x3,#' ' cinc x2,x2,eq //addeq x2,x2,#1 beq 5b add x4,x6,x2 // new start address b 1b 100: ldp x8,fp,[sp],16 // restaur des 2 registres ldp x6,x7,[sp],16 // restaur des 2 registres ldp x4,x5,[sp],16 // restaur des 2 registres ldp x2,x3,[sp],16 // restaur des 2 registres ldp x1,lr,[sp],16 // restaur des 2 registres ret /****************************************************************/ / control load / /****************************************************************/ / x0 contains string table / controlLoad: stp x1,lr,[sp,-16]! // save registres stp x2,x3,[sp,-16]! // save registres mov x2,x0 mov x1,#0 1: ldr x0,[x2,x1,lsl #3] cmp x0,#0 beq 100f bl affichageMess ldr x0,qAdrszCarriageReturn bl affichageMess add x1,x1,#1 b 1b 100: ldp x2,x3,[sp],16 // restaur des 2 registres ldp x1,lr,[sp],16 // restaur des 2 registres ret /**********************************/ / Strings case sensitive comparisons / /**********************************/ / x0 et x1 contains the address of strings / / return 0 in x0 if equals / / return -1 if string x0 < string x1 / / return 1 if string x0 > string x1 / comparStrings: stp x1,lr,[sp,-16]! // save registres stp x2,x3,[sp,-16]! // save registres stp x4,x5,[sp,-16]! // save registres mov x2,#0 // counter 1: ldrb w3,[x0,x2] // byte string 1 ldrb w4,[x1,x2] // byte string 2 cmp x3,x4 blt 2f bgt 3f cmp x3,#0 // 0 end string beq 4f // end string add x2,x2,#1 // else add 1 in counter b 1b // and loop 2: mov x0,#-1 // small b 100f 3: mov x0,#1 // greather b 100f 4: mov x0,#0 // equal 100: ldp x4,x5,[sp],16 // restaur des 2 registres ldp x2,x3,[sp],16 // restaur des 2 registres ldp x1,lr,[sp],16 // restaur des 2 registres ret /******************************************************/ / File Include fonctions / /******************************************************/ / for this file see task include a file in language AArch64 assembly / .include "../includeARM64.inc" </syntaxhighlight> <pre> Enter command (or quit to stop) : riG RIGHT Enter command (or quit to stop) : rePEAT REPEAT Enter command (or quit to stop) : copies error* Enter command (or quit to stop) : put PUT Enter command (or quit to stop) : mo MOVE Enter command (or quit to stop) : rest RESTORE Enter command (or quit to stop) : types error Enter command (or quit to stop) : fup. error Enter command (or quit to stop) : 6 error Enter command (or quit to stop) : poweRin POWERINPUT Enter command (or quit to stop) : quit QUIT pi@debian-buster-64:~/asm64/rosetta/asm9 $ </pre> =={{header\|Ada}}== <syntaxhighlight lang="ada">with Ada.Characters.Handling; with Ada.Containers.Indefinite_Vectors; with Ada.Strings.Fixed; with Ada.Strings.Maps.Constants; with Ada.Text_IO; procedure Abbreviations_Easy is package Command_Vectors is new Ada.Containers.Indefinite_Vectors (Index_Type => Positive, Element_Type => String); use Command_Vectors; Commands : Vector; procedure Append (Word_List : String) is use Ada.Strings; First : Positive := Word_List'First; Last : Natural; begin loop Fixed.Find_Token (Word_List, Set => Maps.Constants.Letter_Set, From => First, Test => Inside, First => First, Last => Last); exit when Last = 0; Commands.Append (Word_List (First .. Last)); exit when Last = Word_List'Last; First := Last + 1; end loop; end Append; function Match (Word : String) return String is use Ada.Strings; use Ada.Characters.Handling; Upper_Word : constant String := To_Upper (Word); Prefix_First : Positive; Prefix_Last : Natural; begin if Word = "" then return ""; end if; for Command of Commands loop Fixed.Find_Token (Command, Maps.Constants.Upper_Set, Inside, Prefix_First, Prefix_Last); declare Upper_Prefix : constant String := Command (Prefix_First .. Prefix_Last); Upper_Command : constant String := To_Upper (Command); Valid_Length : constant Boolean := Word'Length >= Upper_Prefix'Length; Match_Length : constant Natural := Natural'Min (Word'Length, Command'Length); Valid_Match : constant Boolean := Fixed.Head (Upper_Word, Upper_Word'Length) = Fixed.Head (Upper_Command, Upper_Word'Length); begin if Valid_Length and Valid_Match then return Upper_Command; end if; end; end loop; return "error"; end Match; procedure Put_Match (To : String) is use Ada.Text_IO; M : constant String := Match (To); begin Put ("Match to '"); Put (To); Put ("' is '"); Put (M); Put_Line ("'"); end Put_Match; procedure A (Item : String) renames Append; begin A ("Add ALTer BAckup Bottom CAppend Change SCHANGE CInsert CLAst COMPress COpy"); A ("COUnt COVerlay CURsor DELete CDelete Down DUPlicate Xedit EXPand EXTract Find"); A ("NFind NFINDUp NFUp CFind FINdup FUp FOrward GET Help HEXType Input POWerinput"); A ("Join SPlit SPLTJOIN LOAD Locate CLocate LOWercase UPPercase LPrefix MACRO"); A ("MErge MODify MOve MSG Next Overlay PARSE PREServe PURge PUT PUTD Query QUIT"); A ("READ RECover REFRESH RENum REPeat Replace CReplace RESet RESTore RGTLEFT"); A ("RIght LEft SAVE SET SHift SI SORT SOS STAck STATus TOP TRAnsfer Type Up"); Put_Match ("riG"); Put_Match ("rePEAT"); Put_Match ("copies"); Put_Match ("put"); Put_Match ("mo"); Put_Match ("rest"); Put_Match ("types"); Put_Match ("fup."); Put_Match ("6"); Put_Match ("poweRin"); Put_Match (""); Put_Match ("o"); end Abbreviations_Easy;</syntaxhighlight> =={{header\|ALGOL 68}}== {{works with\|ALGOL 68G\|Any - tested with release 2.8.3.win32}} Uses Algol 68G specific is lower and to upper procedures. Does not use a hash table. <~~lang~~syntaxhighlight lang="algol68"># "Easy" abbreviations # # table of "commands" - upper-case indicates the mminimum abbreviation # STRING command table = "Add ALTer BAckup Bottom CAppend Change SCHANGE CInsert CLAst COMPress COpy " Line 172 ⟶ 776: # task test cases # test expand( "riG rePEAT copies put mo rest types fup. 6 poweRin", command table ); test expand( "", command table )</~~lang~~syntaxhighlight> {{out}} <pre> Line 187 ⟶ 791: Also note that the program should return the uppercase string (as per the requirements): <br><br> RIGHT REPEAT error PUT MOVE RESTORE error error error POWERINPUT<br><br> Also note that an   ''error''   is noted by:     error }}<br><br> Furthermore, a possible test case for the keyword (not abbreviated)     <big> quit </big>     can't be processed by this program.}} <pre> Correction program 15/11/2020 </pre> {{works with\|as\|Raspberry Pi}} <syntaxhighlight lang="arm assembly"> ~~<lang ARM Assembly>~~ /* ARM assembly Raspberry PI / / program abbrEasy.s / Line 230 ⟶ 837: szMessErreur: .asciz "Error detected.\n" szMessErrBuffer: .asciz "buffer size too less !!" szMessErrorAbr: .asciz "error" szMessInput: .asciz "Enter command (or quit to stop) : " szCmdQuit: .asciz "QUIT" szValTest1: .asciz "Quit" szValTest2: .asciz "Rep" /*******************************/ / UnInitialized data / Line 302 ⟶ 911: mov r8,r0 mov r9,r1 bl computeLength @ length input command mov r4,r0 @ save length input mov r2,#0 @ indice mov r3,#0 @ find counter Line 308 ⟶ 919: ldr r1,[r9,r2,lsl #2] @ load a item cmp r1,#0 @ end ? beq 3f5f bl comparStringSpe @ cmp r0,#0 @ no found other search beq 2f4f mov r6,#0 mov r5,#0 2: @ loop count capital letters ldrb r0,[r1,r6] cmp r0,#0 beq 3f tst r0,#0x20 @ capital letter ? addeq r5,r5,#1 add r6,r6,#1 b 2b 3: cmp r4,r5 @ input < command capital letters blt 4f @ no correct add r3,r3,#1 @ else increment counter mov r5r7,r1 @ and save address command 24: add r2,r2,#1 @ increment indice b 1b @ and loop 35: cmp r3,#1 @ no find or multiple find ? bne 99f @ error @ one find mov r0,r8r7 @ length ~~input~~ command table ~~bl computeLength~~ ~~mov r4,r0 @ length input~~ ~~mov r0,r5 @ length command table~~ bl computeLength cmp r4,r0 @ length input > command ? bgt 99f @ error ~~mov r2,#0~~ ~~mov r1,#0~~ ~~4: @ loop count capital letters~~ ~~ldrb r3,[r5,r2]~~ ~~cmp r3,#0~~ ~~beq 5f~~ ~~tst r3,#0x20 @ capital letter ?~~ ~~addeq r1,r1,#1~~ ~~add r2,r2,#1~~ ~~b 4b~~ 5: ~~cmp r4,r1 @ input < command capital letters~~ ~~blt 99f @ error~~ mov r4,#0x20 @ 5 bit to 1 mov r2,#0 6: ldrb r3,[r5r7,r2] cmp r3,#0 beq 7f bic r3,r3,r4 @ convert to capital letter ~~str~~strb r3,[r8,r2] add r2,r2,#1 b 6b 7: strb r3,[r8,r2] mov r0,r8 @ return string input address b 100f Line 575 ⟶ 1,186: /*************************************************/ .include "../affichage.inc" </syntaxhighlight> ~~</lang>~~ <pre> Enter command (or quit to stop) : ~~test~~riG RIGHT ~~error~~ Enter command (or quit to stop) : sorePEAT REPEAT ~~error~~ Enter command (or quit to stop) : ~~sos~~copies error* ~~SOS~~ Enter command (or quit to stop) : ~~rgt~~put PUT ~~error~~ Enter command (or quit to stop) : ~~rgtleft~~mo MOVE ~~RGTLEFT~~ Enter command (or quit to stop) : rest RESTORE Enter command (or quit to stop) : types error Enter command (or quit to stop) : fup. error Enter command (or quit to stop) : 6 error Enter command (or quit to stop) : poweRin POWERINPUT Enter command (or quit to stop) : quit QUIT Line 592 ⟶ 1,214: =={{header\|AutoHotkey}}== <~~lang~~syntaxhighlight ~~AutoHotKey~~lang="autohotkey">; Setting up command table as one string str = ( Line 636 ⟶ 1,258: } MsgBox % Trim(result) </syntaxhighlight> ~~</lang>~~ {{out}} <pre> Line 644 ⟶ 1,266: =={{header\|AWK}}== <~~lang~~syntaxhighlight ~~AWK~~lang="awk">#!/usr/bin/awk -f BEGIN { FS=" "; Line 683 ⟶ 1,305: </syntaxhighlight> ~~</lang>~~ {{out}} Line 692 ⟶ 1,314: =={{header\|C}}== <~~lang~~syntaxhighlight lang="c">#include <ctype.h> #include <stdbool.h> #include <stdio.h> Line 838 ⟶ 1,460: free_command_list(commands); return 0; }</~~lang~~syntaxhighlight> {{out}} Line 847 ⟶ 1,469: =={{header\|C++}}== <~~lang~~syntaxhighlight lang="cpp">#include <algorithm> #include <cctype> #include <iostream> Line 949 ⟶ 1,571: std::cout << "output: " << output << '\n'; return 0; }</~~lang~~syntaxhighlight> {{out}} Line 958 ⟶ 1,580: =={{header\|Clojure}}== <syntaxhighlight lang="clojure"> (defn words [str] "Split string into words" (.split str "\\s+")) (defn join-words [strings] "Join words into a single string" (clojure.string/join " " strings)) (def cmd-table "Command Table - List of words to match against" (words "Add ALTer BAckup Bottom CAppend Change SCHANGE CInsert CLAst COMPress COpy COUnt COVerlay CURsor DELete CDelete Down DUPlicate Xedit EXPand EXTract Find NFind NFINDUp NFUp CFind FINdup FUp FOrward GET Help HEXType Input POWerinput Join SPlit SPLTJOIN LOAD Locate CLocate LOWercase UPPercase LPrefix MACRO MErge MODify MOve MSG Next Overlay PARSE PREServe PURge PUT PUTD Query QUIT READ RECover REFRESH RENum REPeat Replace CReplace RESet RESTore RGTLEFT RIght LEft SAVE SET SHift SI SORT SOS STAck STATus TOP TRAnsfer Type Up")) ; TODO - cache word properties (defn abbr-valid? "Is abbr abbreviation of word?" [abbr word] (and (.startsWith (.toLowerCase word) (.toLowerCase abbr)) (<= (count (filter #(Character/isUpperCase %) word)) (count abbr) (count word)))) (defn find-word-for-abbr "Find first word matching abbreviation, or nil if not found" [abbr] (first (filter #(abbr-valid? abbr %) cmd-table))) (defn solution "Find word matching each abbreviation in input (or error if not found), and join results into a string" [str] (join-words (for [abbr (words str)] (if-let [word (find-word-for-abbr abbr)] (.toUpperCase word) "error")))) ;; Example Input (print (solution "riG rePEAT copies put mo rest types fup. 6 poweRin")) </syntaxhighlight> {{out}} <pre> RIGHT REPEAT error PUT MOVE RESTORE error error error POWERINPUT </pre> =={{header\|Delphi}}== {{libheader\| System.SysUtils}} {{Trans\|Go}} <syntaxhighlight lang="delphi"> program Abbreviations_Easy; {$APPTYPE CONSOLE} uses System.SysUtils; const _TABLE_ = 'Add ALTer BAckup Bottom CAppend Change SCHANGE CInsert CLAst COMPress COpy ' + 'COUnt COVerlay CURsor DELete CDelete Down DUPlicate Xedit EXPand EXTract Find ' + 'NFind NFINDUp NFUp CFind FINdup FUp FOrward GET Help HEXType Input POWerinput ' + 'Join SPlit SPLTJOIN LOAD Locate CLocate LOWercase UPPercase LPrefix MACRO ' + 'MErge MODify MOve MSG Next Overlay PARSE PREServe PURge PUT PUTD Query QUIT ' + 'READ RECover REFRESH RENum REPeat Replace CReplace RESet RESTore RGTLEFT ' + 'RIght LEft SAVE SET SHift SI SORT SOS STAck STATus TOP TRAnsfer Type Up '; function validate(commands, words: TArray<string>; minLens: TArray<Integer>): TArray<string>; begin SetLength(result, 0); if Length(words) = 0 then exit; for var wd in words do begin var matchFound := false; var wlen := wd.Length; for var i := 0 to High(commands) do begin var command := commands[i]; if (minLens[i] = 0) or (wlen < minLens[i]) or (wlen > length(command)) then continue; var c := command.ToUpper; var w := wd.ToUpper; if c.StartsWith(w) then begin SetLength(result, Length(result) + 1); result[High(result)] := c; matchFound := True; Break; end; end; if not matchFound then begin SetLength(result, Length(result) + 1); result[High(result)] := 'error'; end; end; end; begin var table := _TABLE_.Trim; var commands := table.Split([' '], TStringSplitOptions.ExcludeEmpty); var clen := Length(commands); var minLens: TArray<integer>; SetLength(minLens, clen); for var i := 0 to clen - 1 do begin var count := 0; for var c in commands[i] do begin if (c >= 'A') and (c <= 'Z') then inc(count); end; minLens[i] := count; end; var sentence := 'riG rePEAT copies put mo rest types fup. 6 poweRin'; var words := sentence.Split([' '], TStringSplitOptions.ExcludeEmpty); var results := validate(commands, words, minLens); Write('user words: '); for var j := 0 to Length(words) - 1 do Write(words[j].PadRight(1 + length(results[j]))); Write(#10, 'full words: '); Writeln(string.Join(' ', results)); Readln; end.</syntaxhighlight> =={{header\|Euphoria}}== <syntaxhighlight lang="euphoria"> ~~<lang Euphoria>~~ include std/text.e -- for upper conversion include std/console.e -- for display Line 995 ⟶ 1,753: return flatten(join(results," ")) -- convert sequence of strings into one string, words separated by a single space; end function </syntaxhighlight> ~~</lang>~~ {{out}} <pre> Line 1,003 ⟶ 1,761: =={{header\|Factor}}== <~~lang~~syntaxhighlight lang="factor">USING: arrays ascii assocs combinators.short-circuit io kernel literals math qw sequences sequences.extras splitting.extras ; IN: rosetta-code.abbreviations-easy Line 1,055 ⟶ 1,813: : main ( -- ) user-input "" [ .abbr ] bi@ ; MAIN: main</~~lang~~syntaxhighlight> {{out}} <pre> Line 1,063 ⟶ 1,821: Full words: </pre> =={{header\|FreeBASIC}}== {{trans\|ALGOL 68}} <syntaxhighlight lang="vbnet">Dim As String table = "Add ALTer BAckup Bottom CAppend Change SCHANGE CInsert CLAst COMPress COpy " _ + "COUnt COVerlay CURsor DELete CDelete Down DUPlicate Xedit EXPand EXTract Find " _ + "NFind NFINDUp NFUp CFind FINdup FUp FOrward GET Help HEXType Input POWerinput " _ + "Join SPlit SPLTJOIN LOAD Locate CLocate LOWercase UPPercase LPrefix MACRO " _ + "MErge MODify MOve MSG Next Overlay PARSE PREServe PURge PUT PUTD Query QUIT " _ + "READ RECover REFRESH RENum REPeat Replace CReplace RESet RESTore RGTLEFT " _ + "RIght LEft SAVE SET SHift SI SORT SOS STAck STATus TOP TRAnsfer Type Up" Function NextWord(Byref posic As Integer, text As String) As String ' skip spaces While posic <= Len(text) And Mid(text, posic, 1) = " " posic += 1 Wend ' get the word Dim word As String = "" While posic <= Len(text) And Mid(text, posic, 1) <> " " word += Mid(text, posic, 1) posic += 1 Wend Return word End Function Function MinABLength(comando As String) As Integer Dim ab_min As Integer = 1 While ab_min <= Len(comando) And Ucase(Mid(comando, ab_min, 1)) = Mid(comando, ab_min, 1) ab_min += 1 Wend Return ab_min - 1 End Function Function Expand(table As String, word As String) As String If Len(word) = 0 Then Return "" Else Dim As Integer word_len = Len(word) Dim As String result = "error" Dim As Integer posic = 1 Do Dim As String comando = NextWord(posic, table) If Len(comando) = 0 Then Exit Do Elseif word_len < MinABLength(comando) Or word_len > Len(comando) Then Continue Do Elseif Ucase(word) = Ucase(Left(comando, word_len)) Then result = Ucase(comando) Exit Do End If Loop Return result End If End Function Sub TestExpand(words As String, table As String) Dim As String word, results = "", separator = "" Dim As Integer posic = 1 Do word = NextWord(posic, words) If Len(word) = 0 Then Exit Do results += separator + Expand(table, word) separator = " " Loop Print "Input: "; words Print "Output: "; results End Sub ' task test cases TestExpand("riG rePEAT copies put mo rest types fup. 6 poweRin", table) TestExpand("", table) Sleep</syntaxhighlight> {{out}} <pre>Same as ALGOL 68 entry.</pre> =={{header\|FutureBasic}}== <syntaxhighlight lang="futurebasic"> _window = 1 begin enum 1 _userStringFld _validateBtn _resultsStringFld end enum void local fn BuildWindow window _window, @"Abbreviations, easy", (0,0,600,268) WindowSetContentMinSize( _window, fn CGSizeMake( 200, 268 ) ) WindowSetContentMaxSize( _window, fn CGSizeMake( 10000, 268 ) ) textfield _userStringFld,, @"riG rePEAT copies put mo rest types fup. 6 poweRin", (20,152,560,96) TextFieldSetPlaceholderString( _userStringFld, @"Enter commands" ) ViewSetAutoresizingMask( _userStringFld, NSViewWidthSizable ) button _validateBtn,,, @"Validate", (259,117,83,32) ViewSetAutoresizingMask( _validateBtn, NSViewMinXMargin + NSViewMaxXMargin ) textfield _resultsStringFld,,, (20,20,560,96) TextFieldSetEditable( _resultsStringFld, NO ) TextFieldSetSelectable( _resultsStringFld, YES ) ViewSetAutoresizingMask( _resultsStringFld, NSViewWidthSizable ) end fn local fn Commands as CFArrayRef CFStringRef words = @"Add ALTer BAckup Bottom CAppend Change SCHANGE CInsert CLAst COMPress COpy " words = fn StringByAppendingString( words, @"COUnt COVerlay CURsor DELete CDelete Down DUPlicate Xedit EXPand EXTract Find " ) words = fn StringByAppendingString( words, @"NFind NFINDUp NFUp CFind FINdup FUp FOrward GET Help HEXType Input POWerinput " ) words = fn StringByAppendingString( words, @"Join SPlit SPLTJOIN LOAD Locate CLocate LOWercase UPPercase LPrefix MACRO " ) words = fn StringByAppendingString( words, @"MErge MODify MOve MSG Next Overlay PARSE PREServe PURge PUT PUTD Query QUIT " ) words = fn StringByAppendingString( words, @"READ RECover REFRESH RENum REPeat Replace CReplace RESet RESTore RGTLEFT " ) words = fn StringByAppendingString( words, @"RIght LEft SAVE SET SHift SI SORT SOS STAck STATus TOP TRAnsfer Type Up" ) end fn = fn StringComponentsSeparatedByCharactersInSet( words, fn CharacterSetWhitespaceAndNewlineSet ) local fn MinLength( string as CFStringRef ) as long long index, minLength = 0 long length = len(string) for index = 0 to length - 1 unichar chr = fn StringCharacterAtIndex( string, index ) if ( chr >= _"A" and chr <= _"Z" ) minLength++ else break end if next end fn = minlength void local fn Validate CFArrayRef commands = fn Commands CFStringRef userString = fn ControlStringValue( _userStringFld ) CFArrayRef words = fn StringComponentsSeparatedByCharactersInSet( userString, fn CharacterSetWhitespaceAndNewlineSet ) long cmdCount = len(commands) CFMutableStringRef results = fn MutableStringWithCapacity(0) long wordCount = len(words) long i, j for i = 0 to wordCount - 1 CFStringRef result = @"error* " CFStringRef wd = words[i] long wordLength = len(wd) if ( wordLength ) for j = 0 to cmdCount - 1 CFStringRef cmd = commands[j] if ( fn StringHasPrefix( lcase(cmd), lcase(wd) ) ) if ( wordLength >= fn MinLength(cmd) ) result = fn StringWithFormat( @"%@ ",ucase(cmd) ) break end if end if next MutableStringAppendString( results, result ) end if next ControlSetStringValue( _resultsStringFld, results ) end fn void local fn DoDialog( ev as long, tag as long ) select ( ev ) case _btnClick select ( tag ) case _validateBtn : fn Validate end select end select end fn editmenu 1 fn BuildWindow on dialog fn DoDialog HandleEvents </syntaxhighlight> =={{header\|Go}}== {{trans\|Kotlin}} <~~lang~~syntaxhighlight lang="go">package main import ( Line 1,132 ⟶ 2,066: fmt.Print("\nfull words: ") fmt.Println(strings.Join(results, " ")) }</~~lang~~syntaxhighlight> {{out}} Line 1,142 ⟶ 2,076: =={{header\|Haskell}}== <~~lang~~syntaxhighlight lang="haskell"> import Data.Maybe (fromMaybe) import Data.List (find, isPrefixOf) Line 1,179 ⟶ 2,113: let commands = map (fromMaybe "error" . expandAbbreviation commandTable) abbreviations putStrLn $ unwords results </syntaxhighlight> ~~</lang>~~ =={{header\|J}}== Using the expand definition as well as its dependencies from [[Abbreviations, simple#J]] we convert this command table into the form with the abbreviation length given as a number. <syntaxhighlight lang="j"> ~~<lang J>~~ COMMAND_TABLE=: noun define Add ALTer BAckup Bottom CAppend Change SCHANGE CInsert CLAst COMPress COpy Line 1,200 ⟶ 2,134: CT expand user_words RIGHT REPEAT error PUT MOVE RESTORE error error error POWERINPUT </~~lang~~syntaxhighlight> =={{header\|Java}}== <~~lang~~syntaxhighlight ~~Java~~lang="java">import java.util.HashMap; import java.util.Map; import java.util.Scanner; Line 1,257 ⟶ 2,191: } } </syntaxhighlight> ~~</lang>~~ {{out}} Line 1,265 ⟶ 2,199: RIGHT REPEAT error PUT MOVE RESTORE error error error POWERINPUT </pre> =={{header\|JavaScript}}== === Deno === Works in Browsers as well, uses ES6. Most of the hardwork was done by the RegEx engine. <syntaxhighlight lang="javascript"> var abr=`Add ALTer BAckup Bottom CAppend Change SCHANGE CInsert CLAst COMPress COpy COUnt COVerlay CURsor DELete CDelete Down DUPlicate Xedit EXPand EXTract Find NFind NFINDUp NFUp CFind FINdup FUp FOrward GET Help HEXType Input POWerinput Join SPlit SPLTJOIN LOAD Locate CLocate LOWercase UPPercase LPrefix MACRO MErge MODify MOve MSG Next Overlay PARSE PREServe PURge PUT PUTD Query QUIT READ RECover REFRESH RENum REPeat Replace CReplace RESet RESTore RGTLEFT RIght LEft SAVE SET SHift SI SORT SOS STAck STATus TOP TRAnsfer Type Up` .split(/\W+/).map(_=>_.trim()) function escapeRegex(string) { return string.replace(/[-\/\\^$+?.()\|[\]{}]/g, '\\$&'); } var input = prompt(); console.log(input.length==0?null:input.trim().split(/\s+/) .map( (s=>abr.filter( a=>(new RegExp('^'+escapeRegex(s),'i')) .test(a)&&s.length>=a.match(/^[A-Z]+/)[0].length )[0]) ) .map(_=>typeof _=="undefined"?"error":_).join(' ') ) </syntaxhighlight> =={{header\|jq}}== <syntaxhighlight lang="jq"> def commands: "Add ALTer BAckup Bottom CAppend Change SCHANGE CInsert CLAst COMPress COpy " + "COUnt COVerlay CURsor DELete CDelete Down DUPlicate Xedit EXPand EXTract Find " + "NFind NFINDUp NFUp CFind FINdup FUp FOrward GET Help HEXType Input POWerinput " + "Join SPlit SPLTJOIN LOAD Locate CLocate LOWercase UPPercase LPrefix MACRO " + "MErge MODify MOve MSG Next Overlay PARSE PREServe PURge PUT PUTD Query QUIT " + "READ RECover REFRESH RENum REPeat Replace CReplace RESet RESTore RGTLEFT " + "RIght LEft SAVE SET SHift SI SORT SOS STAck STATus TOP TRAnsfer Type Up "; # produce a "dictionary" in the form of an array of {prefix, word} objects def dictionary: reduce (splits(" +") \| select(length>0)) as $w ([]; . + [$w \| {prefix: sub("[a-z]+";""), word: ascii_upcase} ]); def translate($dict): # input: a string; $command: a {prefix, word} object def match($command): . as $uc \| startswith($command.prefix) and ($command.word \| startswith($uc)); if length==0 then "" else ascii_upcase \| first($dict[] as $command \| select( match($command) ) \| $command \| .word) // "error" end; # Emit the translation of an entire "sentence" def translation: (commands\|dictionary) as $dict \| reduce splits(" +") as $w (""; . + ($w\|translate($dict)) + " ") \| sub(" $";""); # Example: "riG rePEAT copies put mo rest types fup. 6 poweRin" \| translation </syntaxhighlight> Invocation: jq -n -f abbreviations.jq {{out}} <pre> "RIGHT REPEAT error* PUT MOVE RESTORE error error error POWERINPUT" </pre> Line 1,271 ⟶ 2,276: {{trans\|Kotlin}} <~~lang~~syntaxhighlight lang="julia">const table = "Add ALTer BAckup Bottom CAppend Change SCHANGE CInsert CLAst COMPress COpy " * "COUnt COVerlay CURsor DELete CDelete Down DUPlicate Xedit EXPand EXTract Find " * Line 1,306 ⟶ 2,311: result = validate(commands, minlens, words) println("User words: ", join(lpad.(words, 11))) println("Full words: ", join(lpad.(result, 11)))</~~lang~~syntaxhighlight> {{out}} Line 1,313 ⟶ 2,318: =={{header\|Kotlin}}== <~~lang~~syntaxhighlight lang="scala">// version 1.1.4-3 val r = Regex("[ ]+") Line 1,355 ⟶ 2,360: for (j in 0 until results.size) print("${results[j]} ") println() }</~~lang~~syntaxhighlight> {{out}} Line 1,364 ⟶ 2,369: =={{header\|Lua}}== <~~lang~~syntaxhighlight ~~Lua~~lang="lua">#!/usr/bin/lua local list1 = [[ Line 1,455 ⟶ 2,460: start() -- run the program </~~lang~~syntaxhighlight> {{out}} Line 1,465 ⟶ 2,470: </pre> =={{header\|~~MATLAB~~Mathematica}},/{{header\|~~OCTAVE~~Wolfram Language}}== <syntaxhighlight lang="mathematica">ClearAll[ct, FunctionMatchQ, ValidFunctionQ, ProcessString] ~~<lang MATLAB>~~ ct = "Add ALTer BAckup Bottom CAppend Change SCHANGE CInsert CLAst COMPress COpy COUnt COVerlay CURsor DELete CDelete Down DUPlicate Xedit EXPand EXTract Find NFind NFINDUp NFUp CFind FINdup FUp FOrward GET Help HEXType Input POWerinput Join SPlit SPLTJOIN LOAD Locate CLocate LOWercase UPPercase LPrefix MACRO MErge MODify MOve MSG Next Overlay PARSE PREServe PURge PUT PUTD Query QUIT READ RECover REFRESH RENum REPeat Replace CReplace RESet RESTore RGTLEFT RIght LEft SAVE SET SHift SI SORT SOS STAck STATus TOP TRAnsfer Type Up"; ct = FixedPoint[StringReplace[{"\n" -> "", Longest[" " ..] -> " "}], ct]; ct = StringSplit[ct, " "]; FunctionMatchQ[func_String, test_String] := Module[{min, max, l}, min = StringCount[func, Alternatives @@ CharacterRange["A", "Z"]]; max = StringLength[func]; l = StringLength[test]; If[min <= l <= max, If[StringStartsQ[func, test, IgnoreCase -> True], True , False ] , False ] ] ValidFunctionQ[test_String] := Module[{val}, val = SelectFirst[ct, FunctionMatchQ[#, test] &, Missing[]]; If[MissingQ[val], "error", ToUpperCase[val]] ] ProcessString[test_String] := Module[{parts}, parts = StringSplit[test]; StringRiffle[ValidFunctionQ /@ parts, " "] ] ProcessString["riG rePEAT copies put mo rest types fup. 6 poweRin"]</syntaxhighlight> {{out}} <pre>"RIGHT REPEAT error PUT MOVE RESTORE error error error POWERINPUT"</pre> =={{header\|MATLAB}} / {{header\|Octave}}== <syntaxhighlight lang="matlab"> function R = abbreviations_easy(input) Line 1,496 ⟶ 2,538: R = [R,' ',result]; end </syntaxhighlight> ~~</lang>~~ {{out}} Line 1,503 ⟶ 2,545: ans = RIGHT REPEAT error PUT MOVE RESTORE error error error POWERINPUT </pre> =={{header\|Nanoquery}}== {{trans\|Java}} <~~lang~~syntaxhighlight lang="nanoquery">import map COMMAND_TABLE = " Add ALTer BAckup Bottom CAppend Change SCHANGE CInsert CLAst COMPress COpy\n" +\ Line 1,558 ⟶ 2,597: print "error " end end</~~lang~~syntaxhighlight> {{out}} <pre>Please enter your command to verify: riG rePEAT copies put mo rest types fup. 6 poweRin RIGHT REPEAT error PUT MOVE RESTORE error error error POWERINPUT</pre> Line 1,565 ⟶ 2,604: {{trans\|Kotlin}} This is a translation of Kotlin solution with some modifications. <syntaxhighlight lang="nim"> ~~<lang Nim>~~ import sequtils import strutils Line 1,620 ⟶ 2,659: echo "" break </syntaxhighlight> ~~</lang>~~ {{out}} <pre> Line 1,638 ⟶ 2,677: =={{header\|OCaml}}== <~~lang~~syntaxhighlight lang="ocaml">let cmds = "\ Add ALTer BAckup Bottom CAppend Change SCHANGE CInsert CLAst COMPress COpy COUnt COVerlay CURsor DELete CDelete Down DUPlicate Xedit EXPand EXTract Find Line 1,684 ⟶ 2,723: ) user in print_endline (String.concat " " r)</~~lang~~syntaxhighlight> {{out}} Line 1,691 ⟶ 2,730: RIGHT REPEAT error PUT MOVE RESTORE error error error POWERINPUT </pre> =={{header\|Pascal}}== ==={{header\|Free Pascal}}=== {{trans\|Delphi}} only modified to get the implicit declared variables and types. <syntaxhighlight lang="pascal"> program Abbreviations_Easy; {$IFDEF WINDOWS} {$APPTYPE CONSOLE} {$ENDIF} {$IFDEF FPC} {$MODE DELPHI} uses SysUtils; {$ELSE} uses System.SysUtils; {$ENDIF} const _TABLE_ = 'Add ALTer BAckup Bottom CAppend Change SCHANGE CInsert CLAst COMPress COpy ' + 'COUnt COVerlay CURsor DELete CDelete Down DUPlicate Xedit EXPand EXTract Find ' + 'NFind NFINDUp NFUp CFind FINdup FUp FOrward GET Help HEXType Input POWerinput ' + 'Join SPlit SPLTJOIN LOAD Locate CLocate LOWercase UPPercase LPrefix MACRO ' + 'MErge MODify MOve MSG Next Overlay PARSE PREServe PURge PUT PUTD Query QUIT ' + 'READ RECover REFRESH RENum REPeat Replace CReplace RESet RESTore RGTLEFT ' + 'RIght LEft SAVE SET SHift SI SORT SOS STAck STATus TOP TRAnsfer Type Up '; function validate(commands, words: TArray<string>; minLens: TArray<Integer>): TArray<string>; var wd,c,command,w : String; wdIdx,wlen,i : integer; matchFound : boolean; begin SetLength(result, 0); if Length(words) = 0 then exit; for wdIdx := Low(words) to High(words) do begin wd := words[wdIdx]; matchFound := false; wlen := wd.Length; for i := 0 to High(commands) do begin command := commands[i]; if (minLens[i] = 0) or (wlen < minLens[i]) or (wlen > length(command)) then continue; c := command.ToUpper; w := wd.ToUpper; if c.StartsWith(w) then begin SetLength(result, Length(result) + 1); result[High(result)] := c; matchFound := True; Break; end; end; if not matchFound then begin SetLength(result, Length(result) + 1); result[High(result)] := 'error'; end; end; end; var results,commands,words :TArray<string>; table,sentence :String; minLens: TArray<integer>; cLen,i,j,count : integer; c:char; begin table := _TABLE_.Trim; commands := table.Split([' '], TStringSplitOptions.ExcludeEmpty); clen := Length(commands); SetLength(minLens, clen); for i := 0 to clen - 1 do begin count := 0; For j := length(commands[i]) downto 1 do begin c := commands[i][j]; if (c >= 'A') and (c <= 'Z') then inc(count); end; minLens[i] := count; end; sentence := 'riG rePEAT copies put mo rest types fup. 6 poweRin'; words := sentence.Split([' '], TStringSplitOptions.ExcludeEmpty); results := validate(commands, words, minLens); Write('user words: '); for j := 0 to Length(words) - 1 do Write(words[j].PadRight(1 + length(results[j]))); Write(#10, 'full words: '); // FOr fpc 3.0.4 on TIO.RUN for j := 0 to Length(words) - 1 do Write(results[j],' '); // fpc 3.2.2 will do // Writeln(string.Join(' ', results)); {$IFDEF WINDOWS} Readln; {$ENDIF} end.</syntaxhighlight> {{out\|@TIO.RUN fpc 3.0.4 }} <pre> user words: riG rePEAT copies put mo rest types fup. 6 poweRin full words: RIGHT REPEAT error PUT MOVE RESTORE error* error* error* POWERINPUT</pre> =={{header\|Perl}}== {{trans\|Raku}} <~~lang~~syntaxhighlight lang="perl">@c = (join ' ', qw< Add ALTer BAckup Bottom CAppend Change SCHANGE CInsert CLAst COMPress COpy COUnt COVerlay CURsor DELete CDelete Down DUPlicate Xedit EXPand EXTract Find Line 1,721 ⟶ 2,871: } print "$inp\n$out\n"</~~lang~~syntaxhighlight> {{out}} <pre>Input: riG rePEAT copies put mo rest types fup. 6 poweRin Line 1,728 ⟶ 2,878: =={{header\|Phix}}== <!--<syntaxhighlight lang="phix">--> ~~<lang Phix>constant abbrtxt = """~~ <span style="color: #008080;">constant</span> <span style="color: #000000;">abbrtxt</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">""" ~~Add ALTer BAckup Bottom CAppend Change SCHANGE CInsert CLAst COMPress COpy~~ Add ALTer BAckup Bottom CAppend Change SCHANGE CInsert CLAst COMPress COpy COUnt COVerlay CURsor DELete CDelete Down DUPlicate Xedit EXPand EXTract Find NFind NFINDUp NFUp CFind FINdup FUp FOrward GET Help HEXType Input POWerinput Join SPlit SPLTJOIN LOAD Locate CLocate LOWercase UPPercase LPrefix MACRO MErge MODify MOve MSG Next Overlay PARSE PREServe PURge PUT PUTD Query QUIT READ RECover REFRESH RENum REPeat Replace CReplace RESet RESTore RGTLEFT RIght LEft SAVE SET SHift SI SORT SOS STAck STATus TOP TRAnsfer Type Up """</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">input</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">"riG rePEAT copies put mo rest types fup. 6 poweRin"</span> <span style="color: #008080;">function</span> <span style="color: #000000;">set_min_lengths</span><span style="color: #0000FF;">(</span><span style="color: #004080;">sequence</span> <span style="color: #000000;">a</span><span style="color: #0000FF;">)</span> <span style="color: #004080;">sequence</span> <span style="color: #000000;">res</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{}</span> <span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">a</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">do</span> <span style="color: #004080;">string</span> <span style="color: #000000;">ai</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">a</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">],</span> <span style="color: #000000;">uai</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">upper</span><span style="color: #0000FF;">(</span><span style="color: #000000;">ai</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">for</span> <span style="color: #000000;">j</span><span style="color: #0000FF;">=-</span><span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">ai</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">to</span> <span style="color: #000000;">0</span> <span style="color: #008080;">do</span> <span style="color: #008080;">if</span> <span style="color: #000000;">j</span><span style="color: #0000FF;">=</span><span style="color: #000000;">0</span> <span style="color: #008080;">or</span> <span style="color: #000000;">ai</span><span style="color: #0000FF;">[</span><span style="color: #000000;">j</span><span style="color: #0000FF;">]!=</span><span style="color: #000000;">uai</span><span style="color: #0000FF;">[</span><span style="color: #000000;">j</span><span style="color: #0000FF;">]</span> <span style="color: #008080;">then</span> <span style="color: #000000;">res</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">append</span><span style="color: #0000FF;">(</span><span style="color: #000000;">res</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">ai</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">ai</span><span style="color: #0000FF;">)+</span><span style="color: #000000;">j</span><span style="color: #0000FF;">})</span> <span style="color: #008080;">exit</span> <span style="color: #008080;">end</span> <span style="color: #008080;">if</span> <span style="color: #008080;">end</span> <span style="color: #008080;">for</span> <span style="color: #008080;">end</span> <span style="color: #008080;">for</span> <span style="color: #008080;">return</span> <span style="color: #000000;">res</span> <span style="color: #008080;">end</span> <span style="color: #008080;">function</span> <span style="color: #008080;">constant</span> <span style="color: #000000;">abbrevs</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">set_min_lengths</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">split</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">substitute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">abbrtxt</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"\n"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" "</span><span style="color: #0000FF;">),</span><span style="color: #000000;">no_empty</span><span style="color: #0000FF;">:=</span><span style="color: #004600;">true</span><span style="color: #0000FF;">))</span> <span style="color: #008080;">constant</span> <span style="color: #000000;">inputs</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">split</span><span style="color: #0000FF;">(</span><span style="color: #000000;">input</span><span style="color: #0000FF;">,</span><span style="color: #000000;">no_empty</span><span style="color: #0000FF;">:=</span><span style="color: #004600;">true</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">inputs</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">do</span> <span style="color: #004080;">string</span> <span style="color: #000000;">ii</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">inputs</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">],</span> <span style="color: #000000;">res</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">"error"</span> <span style="color: #008080;">for</span> <span style="color: #000000;">j</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">abbrevs</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">do</span> <span style="color: #0000FF;">{</span><span style="color: #004080;">string</span> <span style="color: #000000;">aj</span><span style="color: #0000FF;">,</span> <span style="color: #004080;">integer</span> <span style="color: #000000;">l</span><span style="color: #0000FF;">}</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">abbrevs</span><span style="color: #0000FF;">[</span><span style="color: #000000;">j</span><span style="color: #0000FF;">]</span> <span style="color: #008080;">if</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">ii</span><span style="color: #0000FF;">)>=</span><span style="color: #000000;">l</span> <span style="color: #008080;">and</span> <span style="color: #7060A8;">match</span><span style="color: #0000FF;">(</span><span style="color: #000000;">ii</span><span style="color: #0000FF;">,</span><span style="color: #000000;">aj</span><span style="color: #0000FF;">,</span><span style="color: #000000;">case_insensitive</span><span style="color: #0000FF;">:=</span><span style="color: #004600;">true</span><span style="color: #0000FF;">)==</span><span style="color: #000000;">1</span> <span style="color: #008080;">then</span> <span style="color: #000000;">res</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">upper</span><span style="color: #0000FF;">(</span><span style="color: #000000;">aj</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">exit</span> <span style="color: #008080;">end</span> <span style="color: #008080;">if</span> <span style="color: #008080;">end</span> <span style="color: #008080;">for</span> <span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #000000;">res</span><span style="color: #0000FF;">&</span><span style="color: #008000;">" "</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">end</span> <span style="color: #008080;">for</span> <span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"\n"</span><span style="color: #0000FF;">)</span> <!--</syntaxhighlight>--> {{out}} <pre> RIGHT REPEAT error PUT MOVE RESTORE error error error POWERINPUT </pre> =={{header\|PHP}}== <syntaxhighlight lang="php"> // note this is php 7.x $commands = 'Add ALTer BAckup Bottom CAppend Change SCHANGE CInsert CLAst COMPress COpy COUnt COVerlay CURsor DELete CDelete Down DUPlicate Xedit EXPand EXTract Find NFind NFINDUp NFUp CFind FINdup FUp FOrward GET Help HEXType Input POWerinput Line 1,735 ⟶ 2,936: MErge MODify MOve MSG Next Overlay PARSE PREServe PURge PUT PUTD Query QUIT READ RECover REFRESH RENum REPeat Replace CReplace RESet RESTore RGTLEFT RIght LEft SAVE SET SHift SI SORT SOS STAck STATus TOP TRAnsfer Type Up'; ~~""",~~ ~~input = "riG rePEAT copies put mo rest types fup. 6 poweRin"~~ $input = 'riG rePEAT copies put mo rest types fup. 6 poweRin'; ~~function set_min_lengths(sequence a)~~ $expect = 'RIGHT REPEAT error PUT MOVE RESTORE error error error POWERINPUT'; ~~sequence res = {}~~ $table = makeCommandTable($commands); ~~for i=1 to length(a) do~~ $table_keys = array_keys($table); ~~string ai = a[i], uai = upper(ai)~~ ~~for j=-length(ai) to 0 do~~ ~~if j=0 or ai[j]!=uai[j] then~~ ~~res = append(res,{ai,length(ai)+j})~~ ~~exit~~ ~~end if~~ ~~end for~~ ~~end for~~ ~~return res~~ ~~end function~~ $inputTable = processInput($input); ~~constant abbrevs = set_min_lengths(split(substitute(abbrtxt,"\n"," "),no_empty:=true))~~ ~~constant inputs = split(input,no_empty:=true)~~ foreach ($inputTable as $word) { ~~for i=1 to length(inputs) do~~ $rs = searchCommandTable($word, $table); ~~string ii = inputs[i],~~ if ($rs) { ~~res = "error"~~ $output[] = $rs; ~~for j=1 to length(abbrevs) do~~ } else { ~~{string aj, integer l} = abbrevs[j]~~ if$output[] ~~length(ii)>~~=l 'error'; } ~~and match(ii,aj,case_insensitive:=true)==1 then~~ ~~res = upper(aj)~~ } ~~exit~~ echo 'Input: '. $input. PHP_EOL; ~~end if~~ echo 'Output: '. implode(' ', $output). PHP_EOL; ~~end for~~ ~~puts(1,res&" ")~~ function searchCommandTable($search, $table) { ~~end for~~ foreach ($table as $key => $value) { ~~puts(1,"\n")</lang>~~ if ((strtoupper(substr($value['word'], 0, strlen($search))) === strtoupper($search)) && (strlen($search) >= $value['min_length'])) { return $key; } } return false; } function processInput($input) { $input = preg_replace('!\s+!', ' ', $input); $pieces = explode(' ', trim($input)); return $pieces; } function makeCommandTable($commands) { $commands = preg_replace('!\s+!', ' ', $commands); $pieces = explode(' ', trim($commands)); foreach ($pieces as $word) { $rs[strtoupper($word)] = ['word'=>$word, 'min_length' => preg_match_all("/[A-Z]/", $word)]; } return $rs; }</syntaxhighlight> {{Out}} <pre>user words: riG rePEAT copies put mo rest types fup. 6 poweRin full words: RIGHT REPEAT error PUT MOVE RESTORE error error error POWERINPUT</pre> =={{header\|Picat}}== {{trans\|Prolog}} {{works with\|Picat}} <syntaxhighlight lang="picat"> import util. command_table("Add ALTer BAckup Bottom CAppend Change SCHANGE CInsert CLAst COMPress COpy COUnt COVerlay CURsor DELete CDelete Down DUPlicate Xedit EXPand EXTract Find NFind NFINDUp NFUp CFind FINdup FUp FOrward GET Help HEXType Input POWerinput Join SPlit SPLTJOIN LOAD Locate CLocate LOWercase UPPercase LPrefix MACRO MErge MODify MOve MSG Next Overlay PARSE PREServe PURge PUT PUTD Query QUIT READ RECover REFRESH RENum REPeat Replace CReplace RESet RESTore RGTLEFT RIght LEft SAVE SET SHift SI SORT SOS STAck STATus TOP TRAnsfer Type Up"). validate("", _, Result) ?=> Result = "". validate(Word, Commands, Result), Word \= "" ?=> member(Command, Commands), append(Prefix, Suffix, Command), Prefix == to_uppercase(Prefix), Suffix == to_lowercase(Suffix), LowWord = to_lowercase(Word), LowPrefix = to_lowercase(Prefix), append(LowPrefix, Other, LowWord), LowCommand = to_lowercase(Command), append(LowWord, _, LowCommand), Result = to_uppercase(Command). validate(Word, _, Result), Word \= "" => Result = "error". main(Args) => command_table(Table), Commands = split(Table), foreach (Word in Args) validate(Word, Commands, Result), printf("%w ", Result) end, nl. </syntaxhighlight> {{out}} <pre> RIGHT REPEAT error PUT MOVE RESTORE error error error POWERINPUT </pre> =={{header\|PowerShell}}== <syntaxhighlight lang="powershell"><# Start with a string of the commands #> ~~<lang powershell>~~ $cmdTableStr = ~~<#Start with a string of the commands#>~~ "Add ALTer BAckup Bottom CAppend Change SCHANGE CInsert CLAst COMPress COpy $cmdTableStr = "Add ALTer BAckup Bottom CAppend Change SCHANGE CInsert CLAst COMPress COpy COUnt COVerlay CURsor DELete CDelete Down DUPlicate Xedit EXPand EXTract Find NFind NFINDUp NFUp CFind FINdup FUp FOrward GET Help HEXType Input POWerinput Join SPlit SPLTJOIN LOAD Locate CLocate LOWercase UPPercase LPrefix MACRO MErge MODify MOve MSG Next Overlay PARSE PREServe PURge PUT PUTD Query QUIT READ RECover REFRESH RENum REPeat Replace CReplace RESet RESTore RGTLEFT RIght LEft SAVE SET SHift SI SORT SOS STAck STATus TOP TRAnsfer Type Up" COUnt COVerlay CURsor DELete CDelete Down DUPlicate Xedit EXPand EXTract Find NFind NFINDUp NFUp CFind FINdup FUp FOrward GET Help HEXType Input POWerinput ~~<#String of inputs#>~~ Join SPlit SPLTJOIN LOAD Locate CLocate LOWercase UPPercase LPrefix MACRO MErge MODify MOve MSG Next Overlay PARSE PREServe PURge PUT PUTD Query QUIT READ RECover REFRESH RENum REPeat Replace CReplace RESet RESTore RGTLEFT RIght LEft SAVE SET SHift SI SORT SOS STAck STATus TOP TRAnsfer Type Up" <# String of inputs #> $userWordStr = "riG rePEAT copies put mo rest types fup. 6 poweRin" $outputStr = $null <# Set this string to null only so all variables are intialized#> $cmdTabArray = @() <# Arrays for the commands and the inputs#> $userWordArray = @() <# Split the strings into arrays using a space as the delimiter. ~~This also removes "blank" entries, which fits the requirement "A blank input (or a null input) should return a null string."#>~~ This also removes "blank" entries, which fits the requirement "A blank input (or a null input) should return a null string." #> $cmdTabArray = $cmdTableStr.Split(" ", [System.StringSplitOptions]::RemoveEmptyEntries) $userWordArray = $userWordStr.Split(" ", [System.StringSplitOptions]::RemoveEmptyEntries) <# Begins a loop to iterate through the inputs #> foreach($word in $userWordArray) { $match = $false # Variable set to false so that if a match is never found, the "error" string can be appended foreach($cmd in $cmdTabArray) { ~~if($cmd -like "$word" -and ($word.Length -ge ($cmd -creplace '[a-z]').Length))~~ <# This test: 1) ensures inputs match the leading characters of the command ~~2) are abbreviations of the command 3) the abbreviations is at least the number of capital characters in the command#>~~ 2) are abbreviations of the command 3) the abbreviations is at least the number of capital characters in the command #> if($cmd -like "$word" -and ($word.Length -ge ($cmd -creplace '[a-z]').Length)) { $outputStr += $cmd.ToUpper() + " " # Adds the command in all caps to the output string $match = $true #~~sets~~ Sets the variable so that "error" is not appended break #~~break~~ Break keep the loop from continuing and wasting time once a match was found } } if($match -eq $false){ $outputStr += "error " } # Appends error if no match was found ~~if($match -eq $false){$outputStr += "error "} #appends error if no match was found~~ } #~~below~~ Below lines display the input and output "User text: " + $userWordStr "Full text: " + $outputStr</syntaxhighlight> "" {{Out}} ~~$outputStr~~ <pre>User text: riG rePEAT copies put mo rest types fup. 6 poweRin ~~</lang>~~ Full text: RIGHT REPEAT error PUT MOVE RESTORE error error error POWERINPUT</pre> =={{header\|~~Python~~Prolog}}== {{works with\|SWI Prolog}} <syntaxhighlight lang="prolog"> :- initialization(main). command_table("Add ALTer BAckup Bottom CAppend Change SCHANGE CInsert CLAst COMPress COpy ~~{{output?\|Python}}~~ COUnt COVerlay CURsor DELete CDelete Down DUPlicate Xedit EXPand EXTract Find NFind NFINDUp NFUp CFind FINdup FUp FOrward GET Help HEXType Input POWerinput Join SPlit SPLTJOIN LOAD Locate CLocate LOWercase UPPercase LPrefix MACRO MErge MODify MOve MSG Next Overlay PARSE PREServe PURge PUT PUTD Query QUIT READ RECover REFRESH RENum REPeat Replace CReplace RESet RESTore RGTLEFT RIght LEft SAVE SET SHift SI SORT SOS STAck STATus TOP TRAnsfer Type Up"). validate("", _, "") :- !. ~~{{works with\|Python\|3.6}}~~ ~~<lang python>~~ validate(Word, Commands, Result) :- ~~command_table_text = """Add ALTer BAckup Bottom CAppend Change SCHANGE CInsert CLAst COMPress COpy~~ member(Command, Commands), ~~COUnt COVerlay CURsor DELete CDelete Down DUPlicate Xedit EXPand EXTract Find~~ string_concat(Prefix, Suffix, Command), ~~NFind NFINDUp NFUp CFind FINdup FUp FOrward GET Help HEXType Input POWerinput~~ string_upper(Prefix, Prefix), ~~Join SPlit SPLTJOIN LOAD Locate CLocate LOWercase UPPercase LPrefix MACRO~~ string_lower(Suffix, Suffix), ~~MErge MODify MOve MSG Next Overlay PARSE PREServe PURge PUT PUTD Query QUIT~~ string_lower(Word, LowWord), ~~READ RECover REFRESH RENum REPeat Replace CReplace RESet RESTore RGTLEFT~~ string_lower(Prefix, LowPrefix), ~~RIght LEft SAVE SET SHift SI SORT SOS STAck STATus TOP TRAnsfer Type Up"""~~ string_concat(LowPrefix, _, LowWord), string_lower(Command, LowCommand), string_concat(LowWord, _, LowCommand), string_upper(Command, Result), !. validate(_, _, "error"). ~~user_words = "riG rePEAT copies put mo rest types fup. 6 poweRin"~~ main :- current_prolog_flag(argv, Args), command_table(Table), split_string(Table, " \t\n", "", Commands), forall(member(Arg, Args), ( atom_string(Arg, Word), validate(Word, Commands, Result), format("~w ", Result) )), nl. </syntaxhighlight> {{out}} <pre> RIGHT REPEAT error PUT MOVE RESTORE error error error POWERINPUT </pre> =={{header\|Python}}== {{works with\|Python\|3.6}} <syntaxhighlight lang="python">command_table_text = \ """Add ALTer BAckup Bottom CAppend Change SCHANGE CInsert CLAst COMPress COpy COUnt COVerlay CURsor DELete CDelete Down DUPlicate Xedit EXPand EXTract Find NFind NFINDUp NFUp CFind FINdup FUp FOrward GET Help HEXType Input POWerinput Join SPlit SPLTJOIN LOAD Locate CLocate LOWercase UPPercase LPrefix MACRO MErge MODify MOve MSG Next Overlay PARSE PREServe PURge PUT PUTD Query QUIT READ RECover REFRESH RENum REPeat Replace CReplace RESet RESTore RGTLEFT RIght LEft SAVE SET SHift SI SORT SOS STAck STATus TOP TRAnsfer Type Up""" user_words = "riG rePEAT copies put mo rest types fup. 6 poweRin" def find_abbreviations_length(command_table_text): """ find the minimal abbreviation length for each word by counting capital letters. a word that does not have capital letters gets it's full length as the minimum. ~~gets it's full lengths as the minimum.~~ """ command_table = dict() Line 1,844 ⟶ 3,149: command_table[word] = abbr_len return command_table def find_abbreviations(command_table): Line 1,854 ⟶ 3,158: abbreviations[abbr] = command.upper() return abbreviations def parse_user_string(user_string, abbreviations): Line 1,860 ⟶ 3,163: commands = [abbreviations.get(user_word, "error") for user_word in user_words] return " ".join(commands) command_table = find_abbreviations_length(command_table_text) Line 1,868 ⟶ 3,170: print("user words:", user_words) print("full words:", full_words)</syntaxhighlight> {{Out}} ~~</lang>~~ <pre>user words: riG rePEAT copies put mo rest types fup. 6 poweRin full words: RIGHT REPEAT error PUT MOVE RESTORE error error error POWERINPUT</pre> =={{header\|R}}== <syntaxhighlight lang="R"> library(stringi) cmds_block <- " Add ALTer BAckup Bottom CAppend Change SCHANGE CInsert CLAst COMPress COpy COUnt COVerlay CURsor DELete CDelete Down DUPlicate Xedit EXPand EXTract Find NFind NFINDUp NFUp CFind FINdup FUp FOrward GET Help HEXType Input POWerinput Join SPlit SPLTJOIN LOAD Locate CLocate LOWercase UPPercase LPrefix MACRO MErge MODify MOve MSG Next Overlay PARSE PREServe PURge PUT PUTD Query QUIT READ RECover REFRESH RENum REPeat Replace CReplace RESet RESTore RGTLEFT RIght LEft SAVE SET SHift SI SORT SOS STAck STATus TOP TRAnsfer Type Up" cmds <- cmds_block %>% trimws() %>% stri_split_regex("\\s+") %>% unlist() check_word <- function(inputw,comw) { inputl <- nchar(inputw) coml <- nchar(comw) cap_cnt <- stri_count_regex(comw,"[A-Z]") ifelse(cap_cnt != 0 && inputl >= cap_cnt && inputl <= coml && stri_startswith_fixed(toupper(comw),toupper(inputw)),T,F) } # Inputs intstr_list <- "riG rePEAT copies put mo rest types fup. 6 poweRin" %>% stri_split_regex("\\s+") %>% unlist() # Results results <- sapply(intstr_list,\(y) { matc <- cmds[sapply(cmds,\(x) check_word(y,x))] ifelse(length(matc) != 0,toupper(matc[1]),"error") }) print(results) </syntaxhighlight> {{Out}} <pre> riG rePEAT copies put mo rest types fup. 6 poweRin "RIGHT" "REPEAT" "error" "PUT" "MOVE" "RESTORE" "error" "error" "error" "POWERINPUT" </pre> =={{header\|Racket}}== <~~lang~~syntaxhighlight lang="racket">#lang racket (define command-string Line 1,902 ⟶ 3,250: full-command)) "error")) " ")</~~lang~~syntaxhighlight> {{out}} Line 1,915 ⟶ 3,263: Demonstrate that inputting an empty string returns an empty string in addition to the required test input. <syntaxhighlight lang="raku" ~~perl6~~line>< Add ALTer BAckup Bottom CAppend Change SCHANGE CInsert CLAst COMPress COpy COUnt COVerlay CURsor DELete CDelete Down DUPlicate Xedit EXPand EXTract Find Line 1,937 ⟶ 3,285: put ' Input: ', $str; put 'Output: ', join ' ', $str.words.map: &abbr-easy; }</~~lang~~syntaxhighlight> {{out}} <pre> Input: riG rePEAT copies put mo rest types fup. 6 poweRin Line 1,945 ⟶ 3,293: =={{header\|REXX}}== <syntaxhighlight lang ~~REXX~~="rexx">/REXX program validates a user ~~"word"~~ words against a "command table" with abbreviations./ ~~parse arg uw~~ Parse Arg userwords /obtain optional arguments from the CLcommand line / ifIf uwuserwords='' Then ~~then~~ ~~uw=~~ ~~'riG~~ ~~rePEAT~~ ~~copies~~ ~~put~~ mo ~~rest~~/* nothing specified, use ~~types~~default list from ~~fup.~~task ~~6 poweRin'~~/ userwords= 'riG rePEAT copies put mo rest types fup. 6 poweRin' ~~say 'user words: ' uw~~ Say 'user words: ' userwords @keyws= 'Add ALTer BAckup Bottom CAppend Change SCHANGE CInsert CLAst COMPress COpy' , 'COUnt COVerlay CURsor DELete CDelete Down DUPlicate Xedit EXPand EXTract Find' , 'NFind NFINDUp NFUp CFind FINdup FUp FOrward GET Help HEXType Input POWerinput' , 'Join SPlit SPLTJOIN LOAD Locate CLocate LOWercase UPPercase LPrefix MACRO' , 'MErge MOve MODify MSG Next Overlay PARSE PREServe PURge PUT PUTD Query QUIT' , 'READ RECover REFRESH RENum REPeat Replace CReplace RESet RESTore RGTLEFT' , 'RIght LEft SAVE SET SHift SI SORT SOS STAck STATus TOP TRAnsfer Type Up' Say 'full words: ' validate(userwords) /display the result(s) To the terminal/ ~~say~~Exit ~~'full~~ ~~words:~~ ' ~~validate(uw)~~ /~~display~~stick ~~the~~a ~~result(s)~~fork in it, we're toall ~~the~~Done. ~~terminal~~/ /----------------------------------------------------------------------------------/ ~~exit /stick a fork in it, we're all done. /~~ validate: Procedure Expose keyws /──────────────────────────────────────────────────────────────────────────────────────/ ~~validate:~~ ~~procedure~~ ~~expose~~Arg userwords @; ~~arg~~ x; ~~upper~~ @ /~~ARG~~ Arg = ~~capitalizes~~Parse ~~all~~Upper ~~the~~Arg get Xuserwords in ~~words.~~uppercase / res='' $= / initialize the return string To null ~~/initialize the return string to null.~~/ Do j=1 To words(userwords) /* loop through userwords do ~~j=1~~ to ~~words(x);~~ ~~_=word(x,~~ j) ~~/obtain~~ a ~~word~~ ~~from~~ ~~the~~ X ~~list.~~ / uword=word(userwords,j) /* get next userword do ~~k=1~~ to ~~words(@);~~ ~~a=word(@,~~ k) ~~/get~~ a ~~legitimate~~ ~~command~~ ~~name~~ ~~from~~ @./ Do k=1 To words(keyws) /* loop through all keywords / ~~L=verify(_, 'abcdefghijklmnopqrstuvwxyz', "M") /maybe get abbrev's len./~~ keyw=word(keyws,k) ~~if L==0 then L=length(_) /0? Command name can't be abbreviated/~~ L=verify(keyw,'abcdefghijklmnopqrstuvwxyz','M') / pos. of first lowercase ch/ ~~if abbrev(a, _, L) then do; $=$ a; iterate j; end /is valid abbrev?/~~ If L==0 Then ~~end~~ /k keyword is all uppercase / L=length(keyw) ~~$=$~~ ~~'error'~~ / we need L characters for a match ~~/processed the~~ ~~whole~~ ~~list,~~ ~~not~~ ~~valid.~~ / ~~end /j/~~Else L=L-1 ~~return~~ ~~strip($)~~ /* number of uppercase characters ~~/elide~~ ~~the~~ ~~superfluous~~ ~~leading~~ ~~blank.~~ /~~</lang>~~ If abbrev(translate(keyw),uword,L) Then Do /* uword is an abbreviation / res=res keyw / add the matching keyword To the result string / iterate j / and proceed with the next userword if any / End End res=res 'error' / no match found. indicate error / End Return strip(res) / get rid of leading böank / syntaxhighlight> {{out\|output\|text=  when using the default input:}} <pre> Line 1,980 ⟶ 3,337: =={{header\|Ruby}}== <~~lang~~syntaxhighlight lang="ruby">#!/usr/bin/env ruby cmd_table = File.read(ARGV[0]).split Line 1,996 ⟶ 3,353: puts </syntaxhighlight> ~~</lang>~~ {{out}} <pre> Line 2,005 ⟶ 3,362: =={{header\|Rust}}== <~~lang~~syntaxhighlight lang="rust">use std::collections::HashMap; fn main() { Line 2,038 ⟶ 3,395: println!("{}", corrected_line); } </syntaxhighlight> ~~</lang>~~ {{out}} <pre> Line 2,045 ⟶ 3,402: =={{header\|Scala}}== <syntaxhighlight lang="scala"> ~~<lang Scala>~~ object Main extends App { implicit class StrOps(i: String) { Line 2,078 ⟶ 3,435: println(resultLine) } </syntaxhighlight> ~~</lang>~~ {{out}} <pre> Line 2,085 ⟶ 3,442: =={{header\|Tcl}}== <~~lang~~syntaxhighlight lang="tcl"> proc appendCmd {word} { # Procedure to append the correct command from the global list ::cmds Line 2,124 ⟶ 3,481: puts $result </syntaxhighlight> ~~</lang>~~ {{out}} <pre> Line 2,131 ⟶ 3,488: =={{header\|VBA}}== <~~lang~~syntaxhighlight lang="vb">Private Function ValidateUserWords(userstring As String) As String Dim s As String Dim user_words() As String Line 2,182 ⟶ 3,539: Debug.Print "user words:", guserstring Debug.Print "full words:", ValidateUserWords(guserstring) End Sub</~~lang~~syntaxhighlight>{{out}}<pre>user words: riG rePEAT copies put mo rest types fup. 6 poweRin full words: RIGHT REPEAT error* PUT MOVE RESTORE error error error POWERINPUT </pre> =={{header\|Vedit macro language}}== <~~lang~~syntaxhighlight lang="vedit">// Command table: Buf_Switch(#10=Buf_Free) Ins_Text(" Line 2,250 ⟶ 3,607: } } Return</~~lang~~syntaxhighlight> {{out}} <pre> RIGHT REPEAT error PUT MOVE RESTORE error error error POWERINPUT </pre> =={{header\|V (Vlang)}}== {{trans\|Go}} <syntaxhighlight lang="v (vlang)">import encoding.utf8 fn validate(commands []string, words []string, min_len []int) []string { mut results := []string{} if words.len == 0 { return results } for word in words { mut match_found := false wlen := word.len for i, command in commands { if min_len[i] == 0 \|\| wlen < min_len[i] \|\| wlen > command.len { continue } c := utf8.to_upper(command) w := utf8.to_upper(word) if c.index(w) or {-1} ==0 { results << c match_found = true break } } if !match_found { results << "error" } } return results } fn main() { mut table := "Add ALTer BAckup Bottom CAppend Change SCHANGE CInsert CLAst COMPress COpy " + "COUnt COVerlay CURsor DELete CDelete Down DUPlicate Xedit EXPand EXTract Find " + "NFind NFINDUp NFUp CFind FINdup FUp FOrward GET Help HEXType Input POWerinput " + "Join SPlit SPLTJOIN LOAD Locate CLocate LOWercase UPPercase LPrefix MACRO " + "MErge MODify MOve MSG Next Overlay PARSE PREServe PURge PUT PUTD Query QUIT " + "READ RECover REFRESH RENum REPeat Replace CReplace RESet RESTore RGTLEFT " + "RIght LEft SAVE SET SHift SI SORT SOS STAck STATus TOP TRAnsfer Type Up " table = table.trim_space() commands := table.fields() clen := commands.len mut min_len := []int{len: clen} for i in 0..clen { mut count := 0 for c in commands[i].split('') { if c >= 'A' && c <= 'Z' { count++ } } min_len[i] = count } sentence := "riG rePEAT copies put mo rest types fup. 6 poweRin" words := sentence.fields() results := validate(commands, words, min_len) for j in 0..words.len { print("${words[j]} ") } print("\nfull words: ") println(results.join(" ")) }</syntaxhighlight> {{out}} <pre> riG rePEAT copies put mo rest types fup. 6 poweRin full words: RIGHT REPEAT error PUT MOVE RESTORE error error error POWERINPUT </pre> Line 2,260 ⟶ 3,685: {{libheader\|Wren-fmt}} {{libheader\|Wren-str}} <~~lang~~syntaxhighlight ~~ecmascript~~lang="wren">import "./fmt" for Fmt import "./str" for Str var table = Line 2,317 ⟶ 3,742: } System.write("\nfull words: ") System.print(results.join(" "))</~~lang~~syntaxhighlight> {{out}} Line 2,326 ⟶ 3,751: =={{header\|Yabasic}}== <~~lang~~syntaxhighlight ~~Yabasic~~lang="yabasic">data "Add ALTer BAckup Bottom CAppend Change SCHANGE CInsert CLAst COMPress COpy" data "COUnt COVerlay CURsor DELete CDelete Down DUPlicate Xedit EXPand EXTract Find" data "NFind NFINDUp NFUp CFind FINdup FUp FOrward GET Help HEXType Input POWerinput" Line 2,371 ⟶ 3,796: return n end sub </syntaxhighlight> ~~</lang>~~ =={{header\|zkl}}== Rather more brute force than I'd like but hashing the command table is just too much code. And the table is so small... <~~lang~~syntaxhighlight lang="zkl">commands:=Data(0,String, // "Add\0ALTer\0..." #<<< "Add ALTer BAckup Bottom CAppend Change SCHANGE CInsert CLAst COMPress COpy Line 2,399 ⟶ 3,824: } "error" .concat(" ").println();</~~lang~~syntaxhighlight> {{out}} <pre>