Anagrams
Words that are formed from the same set of letters are anagrams of each other. For instance, pots, post, stop, spot, opts, and tops are anagrams.
Your task is to write a program that, given a dictionary and an input word, prints all the anagrams of the input word.
You are also to determine the largest anagram class in your dictionary.

The flat file “C:\oracle\word.txt” contains the following words :

pots
post
stop
spot
opts
tops
pares
parse
pears
rapes
reaps
spare
spear
angor
argon
goran
grano
groan
nagor
orang
organ
rogan
—————————————————————————-SQL Solution——————————————————————————————

COLUMN largest_anagram_class FORMAT  A68
variable input_str varchar2(38)
exec :input_str:='tops'

create or replace directory tmp as 'C:\oracle'

CREATE  TABLE words (str VARCHAR2(38))
     ORGANIZATION EXTERNAL
     (
       TYPE ORACLE_LOADER
       DEFAULT DIRECTORY tmp
       ACCESS PARAMETERS
       (
         records delimited by newline
         fields terminated by whitespace
         missing field values are null
         ( str
         )
       )
       LOCATION ('word.txt')
     )
     REJECT LIMIT UNLIMITED;

--------------------------------------------------------------Find all the anagrams of the input word ---------------------------------------------------------

WITH DATA AS
(SELECT ordered_str, str,  COUNT(str) OVER (PARTITION BY ordered_str) as cnt
 FROM
 (SELECT DISTINCT REPLACE(LISTAGG(trim(column_value), ',') WITHIN GROUP (ORDER BY trim(column_value)) OVER (PARTITION BY str), ',') as ordered_str, str
  FROM words a,
  xmltable(rtrim(REGEXP_REPLACE(a.str,'(.)', '"\1",'), ','))
 )
),
INPUT AS (
SELECT DISTINCT REPLACE(LISTAGG(trim(column_value), ',') WITHIN GROUP (ORDER BY trim(column_value)) OVER (PARTITION BY str), ',') as ordered_input
  FROM (SELECT :input_str as str FROM dual) a,
  xmltable(rtrim(REGEXP_REPLACE(a.str,'(.)', '"\1",'), ','))
)
SELECT str, CASE WHEN ROWNUM = 1 THEN cnt END as cnt
FROM DATA
WHERE ordered_str IN
(SELECT ordered_input
FROM INPUT);

STR                                           CNT
-------------------------------------- ----------
tops                                            6
pots
opts
spot
post
stop

6 rows selected.

SQL>

---------------------------------------------------Determine the largest anagram class in the dictionary---------------------------------------------------------

WITH DATA AS
(SELECT ordered_str, str,  COUNT(str) OVER (PARTITION BY ordered_str) as cnt
 FROM
 (SELECT DISTINCT REPLACE(LISTAGG(trim(column_value), ',') WITHIN GROUP (ORDER BY trim(column_value)) OVER (PARTITION BY str), ',') as ordered_str, str
  FROM words a,
  xmltable(rtrim(REGEXP_REPLACE(a.str,'(.)', '"\1",'), ','))
 )
)
SELECT  '[ '||anagrams||' ]' AS  largest_anagram_class,  max_ct
 FROM
 (SELECT DISTINCT LISTAGG(str, '->') WITHIN GROUP (ORDER BY str ) OVER (PARTITION BY ordered_str) AS anagrams, cnt, MAX(cnt) OVER() AS max_ct
  FROM DATA
 )
 WHERE max_ct = cnt;

LARGEST_ANAGRAM_CLASS                                                    MAX_CT
-------------------------------------------------------------------- ----------
[ angor->argon->goran->grano->groan->nagor->orang->organ->rogan ]             9

SQL>

select emp,dbms_random.value from emp;

implies a context switch

begin update emp set sal=0; end;

implies a context switch too.

However, it is sometimes better practice to have a few context switches rather than a way too much complex SQL query, that nobody will ever be able to maintain but you.

Ok, let’s try to print the equation abc+def=ghi where abcdefghi are digits from 1 to 9 with no duplicate.

SQL> create or replace function f return sys.odcivarchar2list pipelined deterministic is
  2    a7 number;
  3    a8 number;
  4    a9 number;
  5  begin
  6    -- How to solve the 3 Digits Plus 3 Digits Puzzle
  7    -- where a1a2a3 + a4a5a6 = a7a8a9 and each a is an unique digit from 1 to 9
  8    for a1 in 1..9 loop
  9      for a2 in 1..9 loop
 10        if a2 not in (a1) then
 11          for a3 in 1..9 loop
 12            if a3 not in (a1,a2)
 13            then
 14              for a4 in 1..9 loop
 15                if a4 not in (a1,a2,a3) and a1+a4<10
 16                then
 17                  for a5 in 1..9 loop
 18                    if a5 not in (a1,a2,a3,a4) and a1*10+a2+a4*10+a5<100
 19                    then
 20                      for a6 in 1..9 loop
 21                        if a6 not in (a1,a2,a3,a4,a5) and a1*100+a2*10+a3+a4*100+a5*10+a6<1000
 22                        then
 23                          a9:=a3+a6;
 24                          a8:=trunc(a9/10);
 25                          a9:=a9-a8*10;
 26                          if a9 not in (a1,a2,a3,a4,a5,a6,0)
 27                          then
 28                            a8:=a8+a2+a5;
 29                            a7:=trunc(a8/10);
 30                            a8:=a8-a7*10;
 31                            if a8 not in (a1,a2,a3,a4,a5,a6,a9,0)
 32                            then
 33                              a7:=a7+a1+a4;
 34                              if a7 not in (a1,a2,a3,a4,a5,a6,a8,a9,0)
 35                              then
 36                                pipe row(a1||a2||a3||'+'||a4||a5||a6||'='||a7||a8||a9);
 37                              end if;
 38                            end if;
 39                          end if;
 40                        end if;
 41                      end loop;
 42                    end if;
 43                  end loop;
 44                end if;
 45              end loop;
 46            end if;
 47          end loop;
 48        end if;
 49      end loop;
 50    end loop;
 51  end;
 52  /

Function created.

SQL>
SQL> set timi on
SQL> select column_value as Equation_str, decode(rownum,1,count(*) over()) cnt from table(f);
124+659=783                 336
125+739=864
...
784+152=936

336 rows selected.

Elapsed: 00:00:00.96
SQL>
SQL> SELECT num1||' + '||num2||' = '|| num3 as Equation_str,
  2         CASE WHEN lag(cnt) over (order by num1)  cnt
  3                OR lag(cnt) over (order by num1) IS NULL
  4       THEN  cnt END AS Counter
  5  FROM
  6  (SELECT num1, num2, num3, count(*) over ( ) as cnt
  7   FROM
  8   (SELECT substr(num,1,3) num1, substr(num,4,3) num2, substr(num,7,3) num3
  9    FROM
 10    (SELECT replace(sys_connect_by_path(n,','), ',') num
 11     FROM (SELECT LEVEL n FROM dual CONNECT BY LEVEL <=9)
 12     WHERE LEVEL = 9
 13     CONNECT BY NOCYCLE PRIOR n != n
 14     AND LEVEL <=9
 15     AND CASE LEVEL
 16              WHEN 1
 17              THEN CASE WHEN n < 9 THEN 1 END
 18              WHEN 4
 19              THEN CASE WHEN n  + CONNECT_BY_ROOT(n) = 3 THEN 1 END
 23                        ELSE CASE WHEN n >= CONNECT_BY_ROOT(n) + 1 THEN 1 END
 24                   END
 25             ELSE 1 END = 1
 26     )
 27    )
 28   WHERE to_number(num1)     + to_number(num2)       =  to_number(num3)
 29   );
124 + 659 = 783             336
125 + 739 = 864
...
784 + 152 = 936

336 rows selected.

Elapsed: 00:00:22.91

hmm, do not you just love select * from table(f); ? Just a sinister scheme to seduce you.

I m using TWAIN program but it throws a window error, and I am not able to save it in specific directory.

Plz reply.

Thanks & Regards

Sunita

I want to be able to create and format a file using plsql file..

example query:

select privilege,table_name,grantee from user_tab_privs
order by table_name, privilege;

5 rows of data

select, account,user1
select, account,user2
select, account,user3
insert, account, user1
insert, account,user2
update,account,user1

I would like to format it out such that it looks like this into a privs.sql file

GRANT select on account to user1,user2,user3;
GRANT insert on account to user1, user2;
GRANT update on account to user1;

I have started the following but not sure who to build onto one line and loop it the best.

Thanks for newbie help….:>) We all have to start somewhere.

spool User_table_privs.sql
set serveroutput on format wrap

-- Run this for the schema
DECLARE
--  Privileges cursor
    CURSOR privs_cur IS
	select privilege,table_name,grantee from user_tab_privs
	order by table_name, privilege;
BEGIN
DBMS_OUTPUT.ENABLE(1000000);
    FOR privs_rec IN privs_cur LOOP
        BEGIN
           dbms_output.put_line(
           'GRANT '|| privs_rec.privilege ||' '
                 || privs_rec.table_name || ' ' || privs_rec.grantee || ';');
           EXCEPTION
           WHEN others THEN
               dbms_output.put_line('Bummer (' || sqlerrm || ')' );

        END;

    END LOOP;

END;
/

spool off;

How can I select from my array? is this possible?

Resources:

• AskTom
• Documentation

• Standard SQL/XML Functions:
  • XMLELEMENT
  • XMLATTRIBUTES
  • XMLFOREST
  • XMLCONCAT
  • XMLAGG
  • XMLPI
  • XMLCOMMENT
  • XMLROOT
  • XMLSERIALIZE
  • XMLPARSE
• Oracle Database SQL Functions:
  • XMLSEQUENCE
  • XMLCOLATTVAL
  • XMLCDATA
  • SYS_XMLGEN
  • SYS_XMLAGG
• DBMS_XMLGEN
• XSQL Pages Publishing Framework
• XML SQL Utility (XSU)
• DBURIType

Some of the options above may not be available in versions of the Oracle database earlier than 10g Release 2 (10.2).

For more details on each of the above options check out:

• Oracle XML DB Developer’s Guide 10g Release 2 (10.2) – Chapter 16
• Oracle9i XML Database Developer’s Guide – Oracle XML DB Release 2 (9.2) – Chapter 10

Related links:

• Producing XML from SQL using cursor expressions
• XML in the Database: A Brief Overview
• Get the XML out of your database
• XE, XML and WebDAV – Access your XML data in Oracle XE
• XML and OO in Oracle, A Scenario

If you have any additional XML resources, please add them in the comments below.

PL/SQL + PDF = PL/PDF

PL/PDF is written exclusively in PL/SQL. It is able to either store the generated PDF document in the database or provide the results directly to a browser using MOD_PLSQL. No third-party software is needed; PL/PDF only uses tools provided by the installation package of an Oracle Database (PL/SQL, MOD_PLSQL).

via